掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
独自イベントを作成するには？ (ID：46919)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
アドバイスを下さったみなさん、どうもありがとうございました。 結局、メインフォーム側を次のようにして解決しました。ご参考までに。 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, StrUtils, Controls, Forms, Dialogs, Grids, StdCtrls, Buttons, ExtCtrls, Menus, ・・・ SearchDialog // 得意先名検索ダイアログ type TFrmMain = class(TForm) ： ： // 顧客検索イベント procedure FindCustomer(Sender: TObject; Customer: string); private { Private 宣言 } public { Public 宣言 } end; var FrmMain: TFrmMain; FrmSearch: TFrmSearch; procedure TFrmMain.FormCreate(Sender: TObject); begin ： ： // 得意先名検索ダイアログ FrmSearch := TFrmSearch.Create(Self); FrmSearch.OnCustomer := FindCustomer; end; procedure TFrmMain.FindCustomer(Sender: TObject; Customer: string); begin // 得意先名検索のロジックをコーディング end; ↑この得意先名の検索ロジックが特殊な要件のため、時間がかかり過ぎ、返信が遅くなりました。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.