Hallo,
@Stevie: Danke for Deinen Code. Ich habe ihn ausprobiert. Das Problem ist, dass er bei AControl := FindControl(fData.Wnd); nil zurückgibt. Selbst, wenn die funktion in der selben Anwendung steht, wie hier:
Code:
procedure TForm1.Click (Sender : TObject);
var AControl : TWinControl; tmp : HWND; msg : TMessage;
begin
tmp := AllocateHwnd(OnMessage);
AControl := FindControl (tmp);
msg.Msg := WM_HELP;
if assigned (AControl) then
AControl.WindowProc (msg);
end;
funktioniert es nicht...
Wieso liefert FindControl immer nil?