Hallo alle zusammen
Ich hoffe ihr könnt mir weiterhelfen
Ich will mit Form1 die Form2, andocken und mitverschieben können.
Die Lösung die ich gefunden habe funktioniert auch,
jedoch erhalte ich beim Ausführen jedesmal eine Zugriffverletzung
Vielleicht könnt ihr mir ja weiterhelfen
Hier der Code:
Delphi-Quellcode:
public
{ Public-Deklarationen }
procedure WndProc(var Message: TMessage); override;
end;
procedure TFORM1.WndProc(var Message: TMessage);
begin
if (Message.msg = WM_Move) then
begin
Form2.left := Form1.left;
Form2.top := Form1.Top+183;
end;
inherited WndProc(Message);
end;
Wäre echt Dankbar für eure Hilfe
Grüße Starworld