vielleicht hilf dir das hier:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
case Button1.Tag
of
0:
begin
// code für ersten click
ShowMessage('
1');
end;
1:
begin
// code für no. 2
ShowMessage('
2');
end;
2:
begin
// code bei dritten klick
ShowMessage('
3');
end;
else
begin
// alle anderen klicks
ShowMessage('
und nochmal (' + inttostr(succ(Button1.Tag)) + '
)');
end;
end;
Button1.Tag := Button1.Tag + 1;
end;
end.
...und mal wieder hab ich mich hinreißen lassen, kompletten code zu posten
