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:=
相关问答：
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
