Fórum Herdar propriedade de outro componente??? #157605
03/05/2003
0
Olá pessoal, como faço para que meu componente herde uma propriedade de outro componente???
Digamos que criei um componente TEdit e gostaria que ele herdasse a propriedade Caption do TButton.
Se possível gostaria que colocassem um exemplo para que eu possa ver como fica na prática!
Um abraço!!!
Digamos que criei um componente TEdit e gostaria que ele herdasse a propriedade Caption do TButton.
Se possível gostaria que colocassem um exemplo para que eu possa ver como fica na prática!
Um abraço!!!
Milton Júnior
Curtir tópico
+ 0
Responder
Posts
03/05/2003
Centopocento
Milton,
Ai vai:
procedure TForm1.Button1Click(Sender: TObject);
begin
with TEdit.Create(Self) do
begin
Text := Button1.Caption;
Parent := Button1.Parent;
Left := Button1.Left;
Top := Button1.Top + Button1.Height + 10;
SetFocus;
end;
end;
Espero ter ajudado!
T+
Ps. Moro em Olinda-PE
Ai vai:
procedure TForm1.Button1Click(Sender: TObject);
begin
with TEdit.Create(Self) do
begin
Text := Button1.Caption;
Parent := Button1.Parent;
Left := Button1.Left;
Top := Button1.Top + Button1.Height + 10;
SetFocus;
end;
end;
Espero ter ajudado!
T+
Ps. Moro em Olinda-PE
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)