掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
独自イベントを作成するには？ (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.