��Delphi�ж�̬��ɵĿؼ��ô��Ӧ��Ϣ

Thread View: cn.bbs.comp.program

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by �ϵ� Sun, 19 Apr 1998 00:00

#1160

Author: �ϵ�
Date: Sun, 19 Apr 1998 00:00

63 lines
1870 bytes

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

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads

Thread View: cn.bbs.comp.program

��Delphi�ж�̬��ɵĿؼ���ô��Ӧ��Ϣ

Thread Navigation

��Delphi�ж�̬��ɵĿؼ��ô��Ӧ��Ϣ