请问高人........

Question

想写一个函数，实现某些功能。
背景：有几个文本框， 希望能够在单击后会让文本框有变化（如：字体变大), 请问该如何把文本框的名称送入函数.

Answer 1

procedure changeedit(edt:tedit);//公用过程
begin
   edt.Text:='asdfasf';
end;假如界面中有两个edit框，则
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   changeedit(edit1)
end;procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   changeedit(edit2)
end;
一个很简单的小例子，楼主慢慢领会