Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:基础知识    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  动态控件事件的使用  
 
动态控件事件的使用

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);

private
{ Private declarations }
procedure testClick(Sender: TObject);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
Panel: TPanel;
SpeedButton: TSpeedButton;
begin
Panel := TPanel.Create(Self);
Panel.Parent := self;
Panel.Top := 100;
Panel.Left := 250;
Panel.BringToFront;
SpeedButton := TSpeedButton.Create(Panel);
SpeedButton.Parent := Panel;
SpeedButton.Left := 40;
SpeedButton.Width := 100;
SpeedButton.Caption := ''test'';
SpeedButton.OnClick := testClick;
end;

procedure TForm1.testClick(Sender: TObject);
begin
Showmessage(''test'')
end;

end.

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站