Fórum Cor do Botão #158464
07/05/2003
0
Agradeço a atenção!
Douglas
Curtir tópico
+ 0Posts
08/05/2003
Renaldo
Gostei + 0
08/05/2003
Okama
[b:6d61b48dc4]procedure[/b:6d61b48dc4] TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
[b:6d61b48dc4]begin[/b:6d61b48dc4]
Panel1.BevelInner := bvLowered;
Panel1.BevelOuter := bvLowered;
[b:6d61b48dc4]end[/b:6d61b48dc4];
[b:6d61b48dc4]procedure[/b:6d61b48dc4] TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
[b:6d61b48dc4]begin[/b:6d61b48dc4]
Panel1.BevelInner := bvRaised;
Panel1.BevelOuter := bvRaised;
[b:6d61b48dc4]end[/b:6d61b48dc4];
Gostei + 0
11/05/2003
Sandra
[color=white:a96509386a].............................[/color:a96509386a] :)
Acho que tenho um componente que faz isso. Mas, não testei...
:oops:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)