como criar uma procedure para mudar valores de um objeto?

Delphi

29/09/2006

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 mudar a propriedade do objeto q eu passasse ..
alguem sabe como fazer?

valeu :)


Salsa

Salsa

Curtidas 0

Respostas

Steve_narancic

Steve_narancic

29/09/2006

Algo do Tipo

procedure Altera(CustomEdit: TCustomEdit; ALeft, ATop: integer);
begin
  CustomEdit.Left:= Aleft;
  CustomEdit.Top:= ATop;
end;



GOSTEI 0
Salsa

Salsa

29/09/2006

sim mas quero especificar o nome do objeto ...

quero poder passar um TEdit ou um TLabel ou um TButton... coisa do tipo :)


GOSTEI 0
Marco Salles

Marco Salles

29/09/2006

como criar uma procedure q possa alterar as propriedades de qq componente q eu passar ex...


voce deve usar como parametro sender:Tobject.... Pois tudo deriva da classe Tobject

tipo isso:

procedure Altera(sender: TObject);
begin
if sender is Tedit Then
Tedit(objeto).Width:=10; //aqui uma propriedade existente
if sender is Tbutton Then
Tbutton(objeto).Top:=5;
//ouytras classes etc....
end;

para chamar

procedure TForm1.Button1Click(Sender: TObject);
begin
Altera(edit1);
Altera(button1);
end;



GOSTEI 0
POSTAR