enviar componente como parametro

Question

como fa�o para enviar um componente como paramentro para uma fun��o ou procedure e dentro desta fun��o ou procedure manipular esse componente. P.S. : Enviar o componente, n�o os dados do componente!

grato,
Carlos Eduardo

Motta · Answer

s� criar a function recebendo o type como parametro , exemplos a rodo no proprio delphi

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

end;

Sender variavel do tipo TObject
Button var. do tipo TMouseButton

F�rum enviar componente como parametro #164982