独自イベントを作成するには？ (ID:46912)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

言語：Delphi2007 for Win32
ＯＳ：Windows7

検索ダイアログを作成しています。
この検索ダイアログはExcelの検索ダイアログのように、表示されたままで検索ボタンをクリックするたびにマッチする文字列（顧客名）を検索するものとして考えています。
このとき、メインフォーム側で OnCustomer イベント（独自イベント）を拾いたいのですが、どうしたらよいでしょうか。

type
  TCustomerEvent = procedure(Sender: TObject; Customer: string) of object;

type
  TFrmSearch = class(TForm)
    Label1: TLabel;
    EdtSearch: TEdit;
    BtnSerch: TButton;
    BtnClose: TButton;
                                        // 検索ボタンクリックイベント
    procedure BtnSerchClick(Sender: TObject);
                                        // 閉じるボタンクリックイベント
    procedure BtnCloseClick(Sender: TObject);
  private
    FOnCustomer: TCustomerEvent;
    FCustomer: string;

protected
    procedure Customer; dynamic;
  public
    property OnCustomer: TCustomerEvent read FOnCustomer write FOnCustomer;
  end;

var
  FrmSearch: TFrmSearch;

：
  ：
procedure TFrmSearch.BtnSerchClick(Sender: TObject);
begin
  FCustomer := EdtSearch.Text;
  Customer;
end;
  ：
  ：
procedure TFrmSearch.Customer;
begin
  if Assigned(FOnCustomer) then begin
    FOnCustomer(Self, FCustomer);
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る