W wcwcw Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-15 #2 遍例窗体中所有的控件， 如果某一个控件获得焦点， 然后对此控件进行操作 procedure TForm1.Button2Click(Sender: TObject); var i: Integer; begin Button1.SetFocus; for i := 0 to Form1.ControlCount - 1 do begin if Button1.Focused then begin Button1.Caption := 'GetFocus'; end; end; end;
遍例窗体中所有的控件， 如果某一个控件获得焦点， 然后对此控件进行操作 procedure TForm1.Button2Click(Sender: TObject); var i: Integer; begin Button1.SetFocus; for i := 0 to Form1.ControlCount - 1 do begin if Button1.Focused then begin Button1.Caption := 'GetFocus'; end; end; end;
L lb_icesea79 Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-15 #4 TWinControl(ActiveControl).Top:=20; 所有可视化组件的，
L lycheng7622 Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-15 #5 有沒有辦法，當某控件獲得焦點時返回他的類名。
X xeen Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-15 #6 TCustomForm.ActiveControl.classname
