Toolbutton?

[boss_triller]

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

[dec]

Hola,

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

[boss_triller]

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

[dec]

Hola,

¡Pues eso te sirve! ¿O no?

[boss_triller]

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

[dec]

Hola,

Si nos ceñimos a tu pregunta:

(...) como puedo hacer un evente cuando lo desunda?..

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.

[[cHackAll]]

Empezado por boss_triller

...//aqui debe ir cuando esta no esta hundido pero nose...

[dec]

Hola,

Empezado por cHackAll

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

Empezado por Ayuda de delphi

Read Down to determine whether a tool button is selected. Setting Down to true at design time causes the button to be initially selected.

Tool buttons can remain Down only if Style is tbsCheck.

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;

[boss_triller]

Gracias.....De veras que si

[[cHackAll]]

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