TNotifyEvent 는 저도 잘 몰라서...(초보라..)

그냥 간단한 예제 하나 올립니다..

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    Procedure ProcButtonClick(Sender : TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.ProcButtonClick(Sender: TObject);
begin
  Caption := 'Exit Eidt & Button Clicked!!';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.OnExit := ProcButtonClick;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Caption := 'Button Clicked!!';
end;

end.

도움이 되셨길...

edit12.OnClick이 아니라 img1.ONClick;인디 잘못적었네여..제가여..
하여던 소스보고 잘 이용해볼께여
왜 Caption인가여...
이미지버튼이라서 Caption이 없는데여...name만 있거던여...

Unit파일에서 Caption은 해당 Form에 대한Caption입니당~
Button의 Caption을 바꾸고 싶을 때는
Button.Caption := '궁시렁 궁시렁..';

글구..예제가 어떨지는(입맛에 맞느지) 몰라도..
만약 특정 폼에 Button을 많이 올려져(20개? --ㅋ) 있는 경우가 있습니다.
각각의 Button은 비슷한(?)기능을 하고..
일일이 버튼 Click이베트를 해줘도 되지만...
예제 올린거와 같은 방법을...

저도 프로그램 시작한지 얼마안되서...답변이 항상 부족하네요..
그럼 도움이 되셨기를..