Form2.OnHide ?

[Delphiturbo]

Hallo
Form1 ist die MainFom. Ich möchte wenn ich Form2 schließe (d.h. Ausblenden), soll Form1 verschoben werden.

Ich habe diesen Tel in Event Onhide und auch in Onsedtroy angelegt aber passiert nicht:

Delphi-Quellcode:

procedure TForm2.FormHide(Sender: TObject);
begin
Form1.Left:=5;
Form1.top:=5;

[rollstuhlfahrer]

Zitat von Delphiturbo:

Hallo
Form1 ist die MainFom. Ich möchte wenn ich Form2 schließe (d.h. Ausblenden), soll Form1 verschoben werden.

Was heißt Ausblenden?? Schließen über Close und das nette X bewirken, dass onHide, onCloseQuery, onClose (und evt. noch onDestroy) aufgerufen werden. Für mein Beispiel wurde Form1 als Mainform geöffnet. Dort gabs einen Button, der Form2 öffnet. SChließt man Form2, dann wird Form1 bewegt. Bei mir wurde im OnHide dir Form1 auf auf .Top = 0 gesetzt und im OnClose die Form auf .Left = 0 gesetzt. Da eine sichtbare auswirkung in beide richtungen zu vernehmen war, steht fest, dass beide Events aufgelöst wurden.

rollstuhlfahrer

EDIT: onDestroy wird erst aufgerufen, wenn die Form aus dem Speicher gelöscht wird (nicht beim Klick auf X). Man kann sie mit .Show a ganz einfach wieder anzeigen lassen

[Delphiturbo]

Bei mir so gemacht, passiert aber nicht !

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
close;
//Application.ProcessMessages;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Left:=0;
end;

[Phoenix]

Hast Du schonmal einen Breakpoint gesetzt und debuggt ob er da wirklich durch kommt?