Zählen wie oft eine Form aufgerufen worden ist

[alanblack]

Hallo leute,

hab ein kleines problem, und zwar:

ich möchte in einem Label zählen wie oft eine Form aufgerufen worden ist

Beispiel:

Ich möchte zählen wie oft Form6 aufgerufen worden ist:

Form6 wurde 5 mal aufgerufen
Label: Form6 wurde 5 mal aufgerufen

Hat jemand eine idee? Wäre nett von euch wenn ihr mir helfen könnt

Mfg alanblack

[Robert_G]

Hi Alan. :hi:
Das könnte so gehen.
(Ich habe es nicht getestet, es sollte aber funktionieren ;) )

Delphi-Quellcode:

var
  i, CountForm1, CountForm2: Integer;
begin
  CountForm1 := 0;
  CountForm2 := 0;
  with Screen do
    for i := 0 to pred(FormCount) do
      if Forms[i] is TForm1 then
        inc(CountForm1)
      else if Forms[i] is TForm2 then
        inc(CountForm2);

  lblForm1.Caption := IntToStr(CountForm1);
  lblForm2.Caption := IntToStr(CountForm2);

[Jörn]

Geht es nicht fast einfacher, im FormOnActivate eine Variable immer höher zu zählen oder irre ich mich da?

[Robert_G]

Das wäre weder einfacher noch vom Konzept her "sauber", da du hierfür globale Variablen bräuchtest.
Außerdem müsste man dann sichergehen, dass beim Schließen auch wirklich die Variable heruntergezählt wird.

Die eine Schleife in meinem Schnipsel liefert exakt die Anzahl der geöffneten Forms (selbst wenn sie nicht sichtbar sind).
Das auch nur dann wenn man es braucht ;)

[alanblack]

Hi,

Vielen Dank für die Antworten.

Ich möchte aber noch was dazu sagen:

Ich möchte nich zählen wie viele Forms offen sind sondern wie oft (zb Form2) seid dem starten des progs geöffnet worden ist. Auch wenn das Fenster wieder geschlossen worden wurde soll es nicht runterzählen..

mfg alanblack

[Robert_G]

:lol:
Tja, dann wäre Jörns Vorschlag wohl doch nicht falsch. ;)

[StefanDP]

Delphi-Quellcode:

var
  zaehler: Integer = 0;
procedure TForm1.FormActivate(Sender: TObject);
begin
  inc(zaehler);
end;

hm, zu einfach um hilfreich zu sein!?

mfg
stefan

[alanblack]

Hi nochma :?

öhm Jörn wie könnte so eine Variable denn aussehen? könntest du mir vll. ein Beispiel machen wär nett

Vielen Dank

alanblack

[Luckie]

Zitat:

Zitat von alanblack

öhm Jörn wie könnte so eine Variable denn aussehen? könntest du mir vll. ein Beispiel machen wär nett

Rund oder eckig, dick oder dünn, farbig oder s/w, ....

Scherz bei Seite. Wie soll sie aussehen? Einfach eine globale Integer-Variable in der Hauptform, die jedes mal inkrementiert wird, wenn ein Formular aufgerufen wird. Wo ist da das Verständinsproblem bitte sehr?

[SirThornberry]

ähm, leute!!! Wieso globale Variable?? Man kann auch in Public des Mainforms eine Variable deklarieren und diese dann hochzählen.. :?