Also:
Angenommen Form1 ist die Hauptform:
Form6 soll gezählt werden:
Delphi-Quellcode:
...
interface
...
public
Form6Zahl: Integer;
...
TForm1.FormCreate(Sen....blabla);
begin
Form6Zahl := 0;
end;
Delphi-Quellcode:
TForm6.FormShow(Sender..blabla);
begin
inc(Form1.Form6Zahl);
end;
TForm6.ButtonClick(Sen....);
begin
ShowMessage('Die Form6 wurde '+IntToStr(Form1.Form6Zahl)+' mal aufgerufen.');
end;
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian