Einzelnen Beitrag anzeigen

Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#23

Re: Zählen wie oft eine Form aufgerufen worden ist

  Alt 3. Mai 2004, 18: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ß.
GoTrillian
  Mit Zitat antworten Zitat