类似的问题

Question

有许多edit,有个button,我的想法是按一下button,光标所在的edit内容清空.请问怎样做?

Answer 1

var i:integer;
begin
  for i:=0 to Form1.ControlCount-1 do
  begin
    if form1.Controls[i] is Tedit then
     (Form1.Controls[i] as Tedit).Clear;
  end;
end;

Answer 2

你一点击button，那个焦点就不在Edit上了。

Answer 3

简单的你可以不用Button，而用SpeedButton，因为它不是TWinControl继承下来的，得不到焦点OnSpeedButtonClick
  if Self.ActiveControl.ClassNameIs('TEdit') then
    (Self.ActiveControl as TEdit).Text:= '';