Feststellen ob ein Button gedrückt wird

[St.Pauli]

Hi, wie kann ich während die procedure eines anderen Buttons läuft feststellen, ob zum Beispiel Button 1 gedrückt wurde??? Geht das überhaut?

[Airblader]

Vielleicht so?

Delphi-Quellcode:

var
  Form1: TForm;
  PressedB1: Boolean;

procedure TForm1.FormCreate;
begin
 PressedB1 := False;
end;

procedure Button1.OnClick;
begin
 PressedB1 := True;
end;

procedure Button2.OnClick;
begin
 if PressedB1 then 
  ShowMessage('Button 1 wurde bereits geklickt')
 else
  ShowMessage('Button 2 wurde noch nicht geklickt');
end;

[PierreB]

Hm, du könntest das ganz simpel machen: Wenn jemand Button1 drückt, weißt du z.B. einer Boolean Variable den Wert true zu. Mit deinem zweiten Button prüfst du dann ob die Variable true ist, wenn nicht, weiß du das der Button noch nicht gedrückt wurde.

//Edit: siehe Airbladers Post...

[Chegga]

Hi,

willst du feststellen, ob er überhaupt gedrückt wurde oder wie oft?

So z.B.:
Beim "1. Klick":

Delphi-Quellcode:

procedure TFrom1.Button1Click(Sender: TObeject);
begin
  //mach was...
end;

"2. Klick":

Delphi-Quellcode:

procedure TFrom1.Button1Click(Sender: TObeject);
begin
  //mach was anderes...
end;

usw...

Meinst du sowas?
Wenn du nur wissen willst, ob er überhaupt gedrückt wurde,
dann kannst du das mit einer Boolean-Abfrage feststellen.

MfG Marc

[St.Pauli]

OK, thanks erstmal. Meinte das erste. Saß etwas stakr auf dem Schlauch.