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 DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
错误提示为：
Exception EOleSysError in module TwServer.exe at 0007CABD.
访问OLE注册表错误
谁能提供一下解决办法啊？
Delphi几开发的呀?
引用
Delphi几开发的呀?
del ......
