● 在Delphi中动态生成的控件怎么响应消息 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标  题: 在Delphi中动态生成的控件怎么响应消息
发信站: BBS 荔园晨风站 (Mon Jan 25 22:42:22 1999), 转信

它的Event := 你的响应函数

如:

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    NewButton: TBitBtn;
  public
    { Public declarations }
    procedure NewButtonClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   NewButton:= TBitBtn.Create(Self);
   NewButton.Parent:= Form1;
   NewButton.Left:= 200;
   NewButton.Top:= 200;
   NewButton.Width:= 90;
   NewButton.Height:= 40;
   NewButton.OnClick:= NewButtonClick;
end;

procedure TForm1.NewButtonClick(Sender: TObject);
begin
   label1.Caption:= 'Hello, the world!';
end;
end.
--

--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店