delphi中动态添加了几个组件,每个组件如何应对事件
动态生成BUTTON都有不同的CAPTION,按不同的BUTTON,在EDITK中生成不同的BUTTON.CAPTION.
不知如何生成事件,很苦恼,各位大佬赐教
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
procedure OnClick( Sender: TObject );
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
bt:tbutton;
i:integer;
{$R *.dfm}
procedure tform1.OnClick( Sender: TObject );
begin
if (tbutton(self.Components[i]).Focused) and (self.Components[i]is tbutton) then
edit1.text:=bt.Components[i].Name;
end;
procedure TForm1.FormShow(Sender: TObject);
//var
begin
for i:=0 to 5 do
begin
bt:=tbutton.Create(self);
bt.Parent:=self;
bt.top:=10+25*i;
bt.left:=10;
bt.height:=25;
bt.width:=
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
如题：
我的程序 Create 的时候 创建了N 个线程；这N个线程不停的在 监听N个COM口的数据；当分析数据时，有些时候要弹出application.messagebox 对话框判断 是否继续 执行线程，还是挂起线程。当多个线程同时 ......
