Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
Turbo Delphi für Win32
|
Re: Zählen wie oft eine Form aufgerufen worden ist
3. Mai 2004, 19:46
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ß.
|