对于相同的控件
先在From中找到它,就能对它操作了
方法如下:
procedure TForm1.MenuItem_testClick(Sender: TObject);
var
i:integer;
TT: Tcontrl // Tcontrl是你要控制的控件类
begin
for i:=0 to controlcount-1 do
if controls is Tcontrl then // is 用来进行操作
begin
TT:=Tcontrl(controls)
//强制类型转换!
//对TT操作
....
end;
end;
假设你要做的是选中Item则执行点击相应form中都名为'Button1'的按钮的事件
var
fm: TCustomForm;
begin
fm := GetParentForm(PopupMenu1.PopupComponent);
TButton(fm.FindComponent('Button1').OnClick(fm);
end;
