Einzelnen Beitrag anzeigen

Benutzerbild von ste_ett
ste_ett

Registriert seit: 10. Sep 2004
Ort: Dülmen
464 Beiträge
 
Delphi 7 Professional
 
#6

Re: Nahtlosen Formularwechsel erzeugen - Bin ratlos!!!

  Alt 12. Okt 2006, 14:50
Nimm statt "Close()" einfach "Hide()".

Delphi-Quellcode:
// erste Form
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Width := Form1.Width;
  Form2.Height := Form1.Height;
  Form2.Left := Form1.Left;
  Form2.Top := Form1.Top;
  Form2.Show;
  Form1.Hide;
end;


// zweite Form
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Width := Form2.Width;
  Form1.Height := Form2.Height;
  Form1.Left := Form2.Left;
  Form1.Top := Form2.Top;
  Form1.Show;
  Form2.Hide;
end;


Ich würde aber auch eher zu PageControl, etc. raten.
Schon allein, weil er von der Erweiterbarkeit wesentlich einfacher ist als jedes Mal eine neue Form zu bauen.
Stefan
"Geht nicht!" ist keine Fehlerbeschreibung und "Hab ich schon versucht!" keine Antwort!

Hey, it compiles! Ship it!
  Mit Zitat antworten Zitat