Toolbutton?
 

Hola, estoy utilizando el componente llamado toolbar, y dentro utilizo el toobutton ...lo utilizo con esta funcion....

if toolbutton2.Down then

haciendo eso lo undimos ahora mi pregunta es como puedo hacer un evente cuando lo desunda?..


Slaudos

Hola,

Tal vez el propio evento "OnClick" pueda servirte. En este evento puedes mirar si el botón está "hundido" o no lo está.

De echo utilizo ese mismo

Código Delphi [-]
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  if toolbutton2.Down then
  Showmessage
else
//aqui debe ir cuando esta no esta hundido pero nose
end;

Gracias

Hola,

¡Pues eso te sirve! ¿O no? :)

Ese me sirve para cuando esta apretado, yo necesito saber cuando no esta presionado

Hola,

Si nos ceñimos a tu pregunta:

La respuesta es: en el evento "OnClick" puedes comprobar si está hundido o no el botón. Partiendo de que al "deshundirlo" se ejecuta el evento "OnClick". Así que el código que has puesto antes funcionaría, digo yo, pero, si a ti no te lo parece... es que me estoy perdiendo algo. :)

:confused: :confused: :confused:

Hola,

Me temo que el asunto es que no funciona de buenas a primeras tal y como se espera. Y es por esto:

Teniendo en cuenta eso (el botón con "Style := tbsCheck") entonces podemos codificar algo como:

Código Delphi [-]
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  if (Sender is TToolButton) then begin
    if not TToolButton(Sender).Down then begin
      ShowMessage('Acaba de "deshundirse" el botón');
    end;
  end;
end;

Gracias.....De veras que si

por eso; acaso no es un "not" y ya?????? pero bueno la cosa es que ya funciona... lo del Sender es necesario con el TToolBar, pero bueno.

Saludos