procedure TForm1.myOnClick(Sender: TObject);
begin
//you code
end;var TempTedit:Tedit;
begin
TempTedit:=TEdit.create(self);
tempTedit.OnClick := myOnClick;
...
end;
begin
//you code
end;var TempTedit:Tedit;
begin
TempTedit:=TEdit.create(self);
tempTedit.OnClick := myOnClick;
...
end;
解决方案 »
- 两张图片的对比,我在网上找的代码,不知道错哪里了,坐等牛人,谢谢
- 关于sysconst病毒的一点分析
- 文件拖放
- 我写的一个delphi服务程序,其他都可以了,就是调用excel,把数据显示在excel表格后,打印预览时,打印窗口的打印机列表中,只显示本地打印机,不显示网络打印机,但单独打印预览时excel里面是
- 用ScanLine改变不了TImage.Picture.Bitmap的颜色?
- 一个关于多用户文件传输的问题
- 一个初级问题想请教
- 屏蔽CTRL+F4 的方式关闭窗体, 解决立即给分,up有分!!!
- 使用ADO组件怎样执行T—SQL文件,或执行T—SQL脚本
- 看看这个PB中能够实现的功能,如何在Delphi中实现
- 怎么知道delphi自带的数据库的密码?请大家帮忙!
- VC++中的GLOBAL DWORD _dwTotalSlotNumber;是什么意思?DELPHI中如何写?
但需要在
TempTedit:=Tedit.create(selft);语句后加上,
temptedit.parent:={控件所在的parent,如form,panel,button等