DelphiÈçºÎ×Ô¶¨Òåʼþ£¿

Çë½Ì£¿

---

×î¼òµ¥µÄ
Delphi(Pascal) code:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure MyClick(sender: TObject);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.OnClick := Self.MyClick;
end;

procedure TForm1.MyClick(sender: TObject);
begin
ShowMessage('ok');
end;

end.

---

ÒýÓÃ

×î¼òµ¥µÄ
Delphi(Pascal) code
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1= class(TForm)
    Button1: TButton;procedure FormCreate(Sender: TObject);
  private{ Private declarations}procedure MyClick(sender: TObject);
  public{ Public declarations}end;var
  Form1: TForm1;

implementation{$R *.dfm}{ TForm1}procedure TForm1.FormCreate(Sender: TObject);begin
  Button1.OnClick := Self.MyClick;end;procedure T