制做组件问题? 应该在loaded里加入初始化的东西,设置属性。仔细看看help吧。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我的意思是,放上组件就应该是运行了构造Create事件, 放上组件运行下面这段语句出错?constructor TSzjPanel.Create(AOwner: TComponent);begininherited Create(AOwner);SzjSgrd :=TStringGrid.Create(AOwner);with SzjSgrd dobeginParent :=self;ColCount :=7;DefaultRowHeight :=20;FixedCols :=0;OnDrawCell :=SzjSgrdDrawCell;OnKeyPress :=SzjSgrdKeyPress;OnTopLeftChanged :=SzjSgrdTopLeftChanged;end;end;运行到end后出错;..Class EClassNotFound with message'Class TStringGrid not found'. 这个问题是解决,但运行的时候会出现两个控件?Why? 如何修改 SQL Server 服务器 的名称啊 僵哥,我想请问下载delphi下如何写这个函数。 xml文件怎么根据属性值确定节点? Dll中使用Application.FindComponent 当用了falsh插件后,怎么样才能停止它的声音 请用过 Indy 组件的朋友帮忙 高手到哪去了???!????!! 如何在状态条里显示系统时间和图标? 远程访问数据库 简单,不过我不会。 如何对动态生成的控件再进行操作? 类似OutLook左边实现菜单功能的控件
constructor TSzjPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SzjSgrd :=TStringGrid.Create(AOwner);
with SzjSgrd do
begin
Parent :=self;
ColCount :=7;
DefaultRowHeight :=20;
FixedCols :=0;
OnDrawCell :=SzjSgrdDrawCell;
OnKeyPress :=SzjSgrdKeyPress;
OnTopLeftChanged :=SzjSgrdTopLeftChanged;
end;
end;
运行到end后出错;
..Class EClassNotFound with message'Class TStringGrid not found'.