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:=
相关问答：
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
如题：
我的程序 Create 的时候 创建了N 个线程；这N个线程不停的在 监听N个COM口的数据；当分析数据时，有些时候要弹出application.messagebox 对话框判断 是否继续 执行线程，还是挂起线程。当多个线程同时 ......
