coloreando un boton

Ver el tema anterior Ver el tema siguiente Ir abajo

coloreando un boton

Mensaje  [G]host el Vie Dic 31, 2010 10:26 pm

unit ColorBoton;

interface

uses Windows, Messages, SysUtils, Classes, Controls, Forms, extctrls;

// igual sobra alguna unit en el uses

type
TColorBoton = class(TPanel)
private
{ Private declarations }
protected
{ Protected declarations }
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);override;
procedure MouseUp(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);override;
public
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('ClubDelphi', [TColorBoton]);
end;

{ TColorBoton }
procedure TColorBoton.MouseDown;
begin
inherited;
BevelOuter:=bvLowered;
end;

procedure TColorBoton.MouseUp;
begin
inherited;
BevelOuter:=bvRaised;
end;

end.
avatar
[G]host
Admin

Mensajes : 67
Puntos : 204
Reputación : 0
Fecha de inscripción : 24/10/2010
Edad : 26

Ver perfil de usuario http://ghost.activo.mx

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.