🚀 go-pugleaf

������: njhe (ra), ����: RAD
��  ��: ��Delphi�ж�̬��ɵĿؼ���ô��Ӧ��Ϣ��
����վ: '3m�Ͻ�ɺ�m' (Thu Feb 26 14:15:00 1998) , վ���ż�

���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.
--

\|/ ____ \|/
~@-/ oO \-@~   ������!!!
/_( \__/ )_\
    \__U_/

m;37m�� ��Դ:���Ͻ�ɺ� bbs.njupt.edu.cn��[FROM: 202.119.236.104]m

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: a507yjh.nju.edu]