2 Fenster verschieben

[Starworld1000]

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

[s-off]

Hallo,

wenn das Event zum ersten Mal auftritt, gibt es Form2 noch gar nicht!

Edit: Was ist das denn für eine Aussage?!

Zitat von Starworld1000:

Die Lösung die ich gefunden habe funktioniert auch,
jedoch erhalte ich beim Ausführen jedesmal eine Zugriffverletzung

Ändere mal die Erzeugungsreihenfolge und ruf Form1 aus Form2 auf. Dann siehst Du, dass es grundsätzlich erstmal funktioniert. Meintest Du vielleicht das mit Deiner widersprüchlichen Aussage?

[SirThornberry]

und dann nicht so:

Delphi-Quellcode:

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;

sondern mindestens so

Delphi-Quellcode:

procedure TFORM1.WndProc(var Message: TMessage); 
begin 
if (Message.msg = WM_Move) then 
begin 
  Form2.left := Self.left; 
  Form2.top := Self.Top+183; 
end; 
inherited WndProc(Message); 

end;

Ansonsten kannst du gleich den Objectteil weg lassen und zur völlig zur globalen Programmierung übergehen.
Richtig/Perfekt wäre es dann wenn Form2 auch weg kommt (sofern Form2 die globale Instanzvariable ist) und dafür eine klassenvariable dafür verwendet wird.

[Starworld1000]

Hubs

Naja da haben wohl meine Hände schneller getippt wie ich gedacht

Ja Danke, hat funktioniert.

Nun ist die Form2 aber die Hauptform, aber wie sag ich der Form nun, das wenn
ich auf Schliessen Klicke, das Programm nicht beenden soll,
und umgekehrt die Form1 das Programm aber beenden soll ?

zb:
Form2.Visble:=False

Grüße
Starworld