Dear All
Ok, first I should confess to being blissfully ignorant of the finer
points of hooking into the windows messaging system.
That said, we have come across a problem that seems to happen a lot on
Wondows 2000 (not replicable on 2003, as far as I can tell).
To replicate:
1. Nest 14 panels into each other, align client for all
2. Put the following code somewhere:
var
FApplicationCallWndProcHook: HHOOK;
function ApplicationCallWndProcHookProc(Code: Integer; WParam: WPARAM;
LParam: LPARAM): LRESULT; stdcall;
begin
Result := CallNextHookEx(FApplicationCallWndProcHook, Code, WParam,
LParam);
end;
procedure SetHook;
begin
FApplicationCallWndProcHook := SetWindowsHookEx(WH_CALLWNDPROC,
ApplicationCallWndProcHookProc, 0, GetCurrentThreadID);
end;
procedure RemoveHook;
begin
if FApplicationCallWndProcHook <> 0 then
begin
UnhookWindowsHookEx(FApplicationCallWndProcHook);
FApplicationCallWndProcHook := 0;
end;
end;
3. Call SetHook on initialization and RemoveHook on finalization.
4. Run the application.
5. Try resizing the form
The problem here is: Panel 14 does not resize :(
The above can be replicated using any container, not just a panel (try
tabsheets, notebooks, groupboxes etc).
This is a real problem for us since we have a reasonably complex
interface and make use of heaps of tabsheets, panels notebooks etc to
abstract things nicely.
So, my question is:
1. Has anyone experienced this before?
2. Is there any solution to this (other than decreasing the number of
containers on the form)
Thank you
Stephen
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
