Cita:
Empezado por mizzard
.. tambien necesitaria que tuviera las propiedades TabStop y TabOrder.
|
Hola mizzard, el TSpeedButton no tiene esas propiedades, para hacer lo que quieres también puedes utilizar Panels y sus propiedades BevelOuter y BevelInner, el codigo que haga lo que necesitas mas o menos sería así:
Dentro de un GroupBox o Panel, añades todos los panels que necesites y lo redimensionas del tamaño de tu botón.
Código Delphi
[-]
Control : TPanel;
procedure TForm1.Panel2Enter(Sender: TObject);
begin
if Assigned(Control) then
begin
Control.BevelOuter:=bvNone;
Control.BevelInner := bvRaised;
end;
TPanel(Sender).BevelInner := bvNone;
TPanel(Sender).BevelOuter:=bvLowered;
Control := TPanel(Sender);
end;
procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Assigned(Control) then
begin
Control.BevelOuter:=bvNone;
Control.BevelInner := bvRaised;
end;
TPanel(Sender).SetFocus; TPanel(Sender).BevelInner := bvNone;
TPanel(Sender).BevelOuter:=bvLowered;
Control := TPanel(Sender);
end;
Y debes hacer que todos tus panels apunten al mismo evento, en este caso a los eventos OnEnter y OnMouseDown.
Saluditos