Button Clicks zählen

[Wolfgang Mix]

Hallo DPler,

hänge gerade an einem Teilproblem. Ich möchte die Anzahl der Button1-Clicks weiter verwerten.

Wie stelle ich das an?

Gruß

Wolfgang

[Neutral General]

Hi,

Einfach eine (globale) Zählvariable die bei jedem Klick um eins erhöht wird?

Gruß
Neutral General

[Wolfgang Mix]

Ja, an global habe ich auch schon gedacht, lokal wäre mir das lieber. Geht das?
Danke für die schnelle Antwort.

[Neutral General]

Nein das geht nicht. Entweder global oder als Klassenvariable

[Wolfgang Mix]

Dann versuche ich das global in etwa so

Globale var: counter:integer;
IsButton1Checked:Boolean

und dann im Button-Event vewerten.
Ist das in etwa so die richtige Richtung?

[Jens Hartmann]

Die Lokale Var. verliert nach jedem aufruf Ihren Wert.

Du musst das in etwa so machen...

Delphi-Quellcode:

//global
var
  Zaehler : integer;
...

//im OnClick Ereignis...

  Zaehler := Zahler +1;
//Anzeige z.B..
  Label1.Caption := Der Button wurde +IntToStr(Zahler)+ geklickt!;

Gruß Jens

[DeddyH]

Wie wäre es denn so (nur so ein Gedanke)?

Delphi-Quellcode:

type
  TButton = class(StdCtrls.TButton)
  private
    FClickCount: Cardinal;
    procedure WMLButtonUp(var Msg: TWMLButtonUp); message WM_LBUTTONUP;
  public
    property ClickCount: Cardinal read FClickCount;
  end;

  TForm1 = class(TForm)
  ...

implementation
...

procedure TButton.WMLButtonUp(var Msg: TWMLButtonUp);
begin
  Inc(FClickCount);
  inherited;
end;

[Wolfgang Mix]

@Jens
So in etwa habe ich mir das gedacht, danke.

@Detlef
Das muss ich 'nem Anfänger verklickern, dann wohl etwas später. Trotzdem Danke.

[DeddyH]

Kann ich ja nicht ahnen. Dann würde ich die Variable aber nach obigem Muster als privat deklarieren und als ReadOnly-Property bereitstellen, nur dann eben als Property des Formulars.

[toms]

Zitat von Wolfgang Mix:

Ja, an global habe ich auch schon gedacht, lokal wäre mir das lieber. Geht das?
Danke für die schnelle Antwort.

Wenn's unbedingt lokal sein muss:

(1 - Tag-Eigenschaft verwenden)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with (Sender as TButton) do
   Tag := Tag + 1;
end;

(2 - mit einer veränderbaren typisierten Konstanten)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
{$j+}Counter: Longword = 0;{$j-} // 
begin
  with (Sender as TButton) do
    Counter := Counter + 1;
end;