Fórum Como alterar as propriedades padrão de um Componente #217618

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