Hola,
Cita:
|
Empezado por cHackAll
Cita:
|
Empezado por boss_triller
...//aqui debe ir cuando esta no esta hundido pero nose...
|
 |
Me temo que el asunto es que no funciona de buenas a primeras tal y como se espera. Y es por esto:
Cita:
|
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;