Hola Isajar y bienvenido a Club Delphi
En realidad cuando un
TButton es presionado se dispara el evento
OnClick del mismo, es decir que allí es donde deberías controlar.
Distinto es si quisieras saber si un
TButton "ya" ha sido presionado, en ese caso podrías usar la propiedad
Tag como bandera, fijando su valor inicial en 0 y poniendo su valor en 1 cuando fuese presionado:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Tag:= 1;
end;
Si quisieras que alternara los valores cada vez que fuera presionado podrías hacer:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Tag:= Integer(not Boolean(Button1.Tag));
end;
Pero creo que si nos explicas con más detalle para que deseas saber si el botón está apretado sería más fácil darte una idea apropiada.
Saludos.