Button Clicks aufzählen??

[HagBurt]

Hallo

Ich hätte ne frage:
Es ist doch sicherlich möglich für einen button mehrere
prozeduren zu verwenden und diese zu den clicks zuordnen

Z.B.
click1 = message
click2 = form2.create
click3 = close

wenn es nicht kompliziert ist schreibt mir bitte nen kleinen quelltext..

Danke, HagBurt

[Matze]

Du könntest eine integer Variable hochzählen und in einer case-Abfrage diverse Prozeduren ausführen.

[nailor]

nee quelltext gibts nicht ;)

du könntest entweder das OnClick jeweils auf eine neue funktion umleiten. (eher unpraktisch).
oder den Button.Tag eins hochzählen und dann in der routine am anfang abfragen, welcher durchlaufe es ist (mit case oder if).

[ripper8472]

wenn du sowas wie nen "TripleClick" machen willst, dann brauchst du natürlich auch die Zeit des ersten Klicks (gettickcount).

[nailor]

ich glaub der wollte nicht "einfachklick . doppelklick . tripleklick" sondern "erster mal drücken . zweites mal drücken . drittes mal drücken"

[ripper8472]

dann hat er ja schon die Lösung bekommen

[nailor]

nehm ich auch an. soll sich mal melden, der bursche ;)

[HagBurt]

sorry :oops:

Ihr habt wahrscheinlich alle gute antworten geschrieben.
Aber ich hab so ziehmlich garnichts verstanden von den antworten.
@nailor genau so hab ichs gemeint.
mit onclick geht es aber glaub ich am einfachsten.so wie ich des jetzt
versteh muss ich halt dann lauter forms mit gleicher graf. oberfläche erstellen und
jedes mal beim button die onlick prozedur auf die nächste form umleiten <--unpraktisch
jetzt bräuchte ich noch einen befehl zum umleiten falls das so stimmt :?

aber wie gesagt versteh ich vom rest garnichts

Danke für die antworten
HagBurt

[nailor]

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 ;)

[HagBurt]

danke. so hats geklappt. ich hätte aber keinen ganzen code gebraucht..... :P

HagBurt