como criar uma procedure para mudar valores de um objeto?

Question

e ae pessoal?como criar uma procedure q possa alterar as propriedades de qq componente q eu passar ex...procedure(TEdit2,30,10,0,3);componente t edit.. 30 W, 10 H, 0 top, 3 left ..queria fazer pra ele...

Steve_narancic · Answer

Algo do Tipo[code:1:c37143a6c0]procedure Altera(CustomEdit: TCustomEdit; ALeft, ATop: integer);begin  CustomEdit.Left:= Aleft;  CustomEdit.Top:= ATop;end;[/code:1:c37143a6c0]...

Salsa · Answer

sim mas quero especificar o nome do objeto ...quero poder passar um TEdit ou um TLabel ou um TButton... coisa do tipo :)...

Marco Salles · Answer

[quote:8e6a8cdb54]como criar uma procedure q possa alterar as propriedades de qq componente q eu passar ex... [/quote:8e6a8cdb54]voce deve usar como parametro sender:Tobject.... Pois tudo deriva da classe Tobjecttipo isso:procedure Altera(sender: TObject);beginif sender is Tedit Then Tedit(objeto).Width:=10; //aqui uma propriedade existenteif sender is Tbutton Then Tbutton(objeto).Top:=5;//ouytras classes etc....end;para chamar[code:1:8e6a8cdb54]procedure TForm1.Button1Click(Sender: TObject);beginAltera(edit1);Altera(button1);end;[/code:1:8e6a8cdb54]...

F�rum como criar uma procedure para mudar valores de um objeto? #330375