Windows Nachrichten Korreckt versenden.

[Corpsman]

@himitsu

das ist nur Ein Sample, klar das im eigentlichen Programm das nicht TForm1 heist


@sirius

MMF ? Kenn ich nicht , aber laut Suchfunktion gibts das, also werde ich mal schaun was ich damit so anstellen kann

@Klaus01

Anscheinend gehen beide Varianten nicht bei mir Oninst stürzt komplett ab und TOneInstance


gibt immer

Delphi-Quellcode:

constructor TOneInstance.Create(AOwner: TComponent);
begin
  inherited;
  FAutoBringToFront:= True;
  FEnabled:= True;
  if not (csDesigning in ComponentState) then
  begin
    WM_COMMUNICATE:= RegisterWindowMessage(PChar(GUID));
    FOwner:= AOwner as TWinControl;
    FOldWndProc:= FOwner.WindowProc; //<-- Hier
    FOwner.WindowProc:= NewWndProc;
  end;
end;

eine AV