事件如何使用？

Question

一般情况下，使用一个控件的事件，只要在它的相应的事件处双击就可以进入到它的事件函数中添加想要的代码，但是，我需要通过这样来给事件中写代码;Edit1.OnChange中添加代码，该如何处理？

Answer 1

那要看你想做什么处理了.比如.
procedure TForm1.Edit1Change(Sender: TObject);
begin
  showmessage('Edit框中内容已经修改!');
end;

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Hello(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := Hello;
end;procedure TForm1.Hello(Sender: TObject);
begin
  showmessage('Hello');
end;end.