Registriert seit: 21. Jun 2002
602 Beiträge
|
23. Nov 2002, 19: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.
|