Como alterar as propriedades padrão de um Componente

Delphi

02/03/2004

Gostaria de saber como fazer com que o delphi inicie as propriedades dos objetos de acordo com as minhas definições. É possível.

Exemplo: gostaria que os edit´s iniciação com a propriedade CTL3D com false.

Obrigado.


Jubrovolski

Jubrovolski

Curtidas 0

Respostas

Cdaraujo

Cdaraujo

02/03/2004

Caro amigo,

Para esse caso, é necessário reescrever o componente, então veja:

unit EditClass;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TEditClass = class(TEdit)
private
procedure SetParent(AParent: TWinControl); override;
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents(´Samples´, [TEditClass]);

end;
{ TEditClass }

procedure TEditClass.SetParent(AParent: TWinControl);
begin
inherited; Self.Ctl3D := False;
end;

end.


Espero ter ajudado!

Daniel Araújo
Gostaria de saber como fazer com que o delphi inicie as propriedades dos objetos de acordo com as minhas definições. É possível. Exemplo: gostaria que os edit´s iniciação com a propriedade CTL3D com false. Obrigado.



GOSTEI 0
POSTAR