当然可以
可以通过findcomponent找到相应组件,进行强制类型转换后,可用相应组控件的属性.procedure TForm1.Button1Click(Sender: TObject);
begin
//在 form 上放一个edit和button
tedit(self.FindComponent('edit1')).Text := 'I love this game.';
end;
可以通过findcomponent找到相应组件,进行强制类型转换后,可用相应组控件的属性.procedure TForm1.Button1Click(Sender: TObject);
begin
//在 form 上放一个edit和button
tedit(self.FindComponent('edit1')).Text := 'I love this game.';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//在 form 上放一个edit和button
if Self.findComponent('edit1') is TEdit then
tedit(self.FindComponent('edit1')).Text := 'I love this game.';
end;