Buenas pessoal, estou criando um componente derivado de TPanel.
No constructor, eu defino Caption como vazio (''), além de outras
propriedades como CTRL3D como False, BorderStyle, etc.
Mas não está acontecendo a mudança. O Caption fica com o nome do
componente, e as outras propriedades mantém o valor default de TPanel.
Olhem aí o fonte.
constructor TOkCancelPanel.Create(AOwner: TComponent);
begin
inherited;
with Self do
begin
Height:=33;
Caption:='';
Ctl3D:=False;
Align:=alBottom;
BevelInner:=bvNone;
BevelKind:=bkNone;
BevelOuter:=bvNone;
BorderStyle:=bsSingle;
end;
bOk:=TButton.Create(Self);
with bOk do
begin
Caption:='Ok';
ModalResult:=mrOk;
Top:=5;
Left:=3;
Width:=69;
Height:=21;
Parent:=Self;
end;
bCancel:=TButton.Create(Self);
with bCancel do
begin
Caption:='Cancelar';
ModalResult:=mrCancel;
Top:=5;
Left:=78;
Width:=69;
Height:=21;
Parent:=Self;
end;
end;
Alguma sugestão?
Grato por qualquer ajuda.
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
