coloreando un boton
Página 1 de 1.
coloreando un boton
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.
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.
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|