我只会写这么多,请高手补充或修改,谢谢
procedure TForm2.FormClick(Sender: TObject);
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
begin
//if Components[i].
end;
end;
procedure TForm2.FormClick(Sender: TObject);
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
begin
//if Components[i].
end;
end;
var aControl: TWinControl;
begin
aControl := FindControl(GetFocus);
if aControl <> nil then Caption := aControl.Name;
end;