@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 