delphi中动态添加了几个组件,每个组件如何应对事件
在一个窗体上放一个EDIT,然后动态产生五个BUTTON,每个CAPTION上都有一个数字,设想按不同的BUTTON,可在EDIT上产生其BUTTON.CAPTION.但我不知如何做五个BUTTON的事件,请大佬帮助!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
var
bt:tbutton;
i:integer;
begin
for i:=0 to 5 do
begin
bt:=tbutton.Create(self);
bt.parent:=form1;
bt.top:=10+25*i;
bt.left:=10;
bt.height:=25;
bt.width:=75;
bt.caption:=inttostr(i);
bt.show;
end;
end;
end.
Delphi(Pascal) code:
定义自己的Click事件
procedure MyClick(Sender:TObject);
将你动态生成的按钮的OnClick事件指向MyClick
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.OnClick := MyClick;//此处已bu
相关问答：
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
错误提示为：
Exception EOleSysError in module TwServer.exe at 0007CABD.
访问OLE注册表错误
谁能提供一下解决办法啊？
Delphi几开发的呀?
引用
Delphi几开发的呀?
del ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
