共 420 篇文章 |
|
FSendmsg := ''''''''发送成功''''''''; Thread.Synchronize(DoSendMsg); except on E: Exception do begin FSendmsg := ''''''''连接错误:'''''''' + e.Message; ... 阅45 转1 评0 公众公开 22-01-26 11:18 |
属性SessionName选择为S2 }DataSource2: TDataSource; { 属性DataSet设置为空 }DBGrid2: TDBGrid; { 属性DataSource选择为DataSource2 }BtnGoPause: TButton; { 用于执行和挂起线程 }procedure FormCreate(Sender: TObject); { 创建窗体时创建线程对象 }procedure FormDestroy(Sender: TObject); { 销毁窗体时销毁线程对象 }procedure BtnGoPau... 阅172 转3 评0 公众公开 22-01-19 09:17 |
通过代码跟踪,发现是字段的Required应该设置为false便可。FBuJuOne := TMenuItem.Create(FBuJuPM);FBuJuOne.FBuJuPM.Items.Add(FBuJuOne);FBuJuTwo := TMenuItem.FBuJuTwo.Add(FBuJuTwo);tmpMI: TMenuItem;tmpMI := TMenuItem(Sender);Align := alBottom;Width := self.tmpMI.Checked :=True;1=默认的一列样式,2=两列显示,这样字段比较多时... 阅110 转1 评0 公众公开 21-11-18 09:17 |
DBGridEh基本操作。//获取当前点击单元格值procedure TForm1.DBGridEh1CellClick(Column: TColumnEh);begin ShowMessage(Column.DisplayText);end; //获取当前选择行某列单元格值procedure TForm1.DBGridEh1CellClick(Column: TColumnEh);begin ShowMessage(DBGridEh1.Columns[].DisplayText);end; 阅253 转0 评0 公众公开 21-11-18 08:24 |
阅52 转0 评0 公众公开 21-11-18 08:17 |
阅34 转0 评0 公众公开 21-11-18 08:16 |
阅277 转2 评0 公众公开 21-11-12 14:03 |
就象窗体中的对象的事件处理函数是窗体类的公开方法,框架中的对象的事件处理函数也是框架类的公开方法。3> 在Component name栏定义框架组件的名称,在Palette page栏填写你想让框架在组件模板内出现的页。要使用一个已添加到组件面板的框架,在组件面板中选择你保存框架的页,选择框架图标并在你要框架后代出现的窗体上拖出该框架。如果你... 阅255 转1 评0 公众公开 21-11-12 12:14 |
阅27 转1 评0 公众公开 21-11-12 12:13 |
Owner 与Parent 的区别Owner 与Parent的区别。ControlCount和ComponentCount的区别也就取决于Parent与Owner的区别,还是拿上面的例子解释下Panel1的ControlCount为1而ComponentCount却为0,是因为Button1的Parent属性指向的是Panel1而Owner属性则还是Form1,所以Form1的ComponentCount值是2(Button1and Panel1)。 阅23 转0 评0 公众公开 21-11-12 12:05 |