Dos estados de un botón

[hernan35]

Hola a todos, mas de uno ya habrá visto que recién estoy aprendiendo a programar con delphi.
Logre que cuando clickeo un button1, el caption de dicho button cambie de 'desactivado' a 'activado', lo que no me sale es que al apretear nuevamente el button por segunda vez cambie a desactivado. ¿Es posible hacerlo con un button?

Desde ya muchas gracias a todos.
Saludos.

[BrunoBsso]

Sí, acá te pongo 2 ejemplos simples

Código Delphi [-]
//En el evento OnClick
if (TButton(Sender).Caption[1]='D') or (TButton(Sender).Captio[1]='d') then
  //Si la primer letra del caption es D o d
  TButton(Sender).Caption:='Activado'
else
  TButton(Sender).Caption:='Desactivado';

Eso tomando como precondición que el botón solamente va a decir "Activado" y "Desactivado".
Otra idea es usar la propiedad Tag.

Código Delphi [-]
//Tag=1 sería activado y Tag=0 sería desactivado
if (TButton(Sender).Tag = 0) then begin
  //Si el Tag está en 0 al momento de pulsarlo
  TButton(Sender).Tag:=1;
  TButton(Sender).Caption:='Activado';
end
else begin
  TButton(Sender).Tag:=0;
  TButton(Sender).Caption:='Desactivado';
end;

Ahí tendrías que ver vos cómo inicializás el Tag para hacerlo bien.
Saludos!

[ContraVeneno]

¿por que no usas un SpeedButton?

Ese botón tiene una propiedad "Down", la cuál es verdadera cuando está presionado y falso cuando no está presionado, solo tienes que establecer la propiedad "AllowAllUp" a verdadero y debes asignar un número a la propiedad "GroupIndex":

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 if (Sender as TSpeedButton).Down then
  (Sender as TSpeedButton).Caption := 'Activo'
 else
  (Sender as TSpeedButton).Caption := 'NO Activo';
end;