Feststellen ob ein Button gedrückt wird

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