type
TFrame1=class(TFrame)
edit1: TEdit;
……
__________________________________
type
TForm1=class(TForm)
frameMy: TFrame1;
……procedure TForm1.btnClick(……)
begin
……
frameMy.edit1.setFocus;
……
end;
执行这个语句的时候总是出这样的错误"control 'edit1' has no parent Window"
还有什么办法可以将控件封装起来,象Frame的效果一样!
谢谢各位高手了!
TFrame1=class(TFrame)
edit1: TEdit;
……
__________________________________
type
TForm1=class(TForm)
frameMy: TFrame1;
……procedure TForm1.btnClick(……)
begin
……
frameMy.edit1.setFocus;
……
end;
执行这个语句的时候总是出这样的错误"control 'edit1' has no parent Window"
还有什么办法可以将控件封装起来,象Frame的效果一样!
谢谢各位高手了!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货