Tedit.selectall(50分)

C

cnsyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-05

• #1

窗体上有20个TEdit 想单击Tedit是全选文字, 但进每个Tedit都写一遍 onclick事件,太麻烦,有简单的办法没?

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-05

• #2

procedure TForm1.Edit1Click(Sender: TObject);
begin
TEdit(Sender).SelectAll;
end;

每个 TEdit 的 OnClick 属性都指向 Edit1Click

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-05

• #3

楼上方法不错阿。

 

C

cnsyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-05

• #4

(Sender as Tedit).Clear 和一楼的一样 不过还是要谢谢