Einzelnen Beitrag anzeigen

Benutzerbild von d3g
d3g

Registriert seit: 21. Jun 2002
602 Beiträge
 
#6
  Alt 23. Nov 2002, 18:20
Delphi-Quellcode:
// unit Unit1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

// -----

// unit Unit2

procedure TForm2.FormShow(Sender: TObject);
begin
  Form1.Hide;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Hide;
  Form1.Show;
end;
-- Crucifixion?
-- Yes.
-- Good. Out of the door, line on the left, one cross each.
  Mit Zitat antworten Zitat