Question

怎么定义多个动态生成的相同类型控件的事件？

Answer 1

Private Sub Form_Load()
Form1.Controls.Add "VB.CommandButton", "cmdObj1"
With Form1!cmdObj1
.Visible = True
.Width = 2000
.Caption = "Dynamic Button"
End With
End Sub

就是在窗体启动时,动态添加一个控件,它是一个按钮,名称叫cmdObj1

Answer 2

nit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure MyImageMouseDownSender( Sender:TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
aImage:TImage;
begin
aImage:=TImage.Create(Self);
aImage.Parent:=Self;
aImage.Canvas.Ellipse(1,1,100,100);
aImage.OnMouseDown:=MyImageMouseDownSender;

end;

procedure TForm1.MyImageMouseDownSender(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Sender is Timage then
ShowMessage(Timage(Sender).ClassName);
end;

end.