Herdar propriedade de outro componente???
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
Curtidas 0
Respostas
Centopocento
03/05/2003
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
GOSTEI 0