知识大全自定义事件实现不同窗体间的通讯Delphi篇

Posted 2022-07-22 事件

篇首语：成功无须解释，失败却有许多托辞。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全自定义事件实现不同窗体间的通讯Delphi篇相关的知识，希望对你有一定的参考价值。

自定义事件实现不同窗体间的通讯Delphi篇 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

要实现子窗体与父窗体之间的通讯有多种方法（比如重载子窗体的构造函数将父窗体的引用作为参数传递给子窗体）下面我要介绍的是利用自定义事件的方法它能够最大程度的避免模块之间的耦合充分体现面向对象的优点　　先将效果图展示给大家　　 >　　下面是实现代码　　　　Unit //子窗体　　　　type　　//声明自定义事件的类型（类似于C#中的委托）　　TMyEventHandle = procedure (Sender: TObject; Content: string) of object;　　　　TForm = class(TForm)　　ComboBox : TComboBox;　　Label : TLabel;　　procedure ComboBox Click(Sender: TObject);　　private　　FOnSelectionChanged: TMyEventHandle;　　public　　//声明自定义事件　　property OnSelectionChanged: TMyEventHandle　　read FOnSelectionChanged write FOnSelectionChanged;　　end;　　　　procedure TForm ComboBox Click(Sender: TObject);　　begin　　//当选择改变时触发自定义的事件　　if Assigned(FOnSelectionChanged) then　　FOnSelectionChanged(Self ComboBox Text);　　end;　　　　Unit //父窗体　　　　type　　TForm = class(TForm)　　btnOpenForm : TButton;　　Edit : TEdit;　　Label : TLabel;　　procedure btnOpenForm Click(Sender: TObject);　　private　　m_frm : TForm ;　　　　procedure frm _SelectionChanged(Sender: TObject; Content: string);　　public　　constructor Create(AOwner: TComponent); override;　　destructor Destroy; override;　　end;　　　　constructor TForm Create(AOwner: TComponent);　　begin　　inherited Create(AOwner);　　　　m_frm := TForm Create(Self);　　　　//指定当m_frm 的自定义事件发生时的处理程序　　m_frm OnSelectionChanged := frm _SelectionChanged;　　end;　　　　destructor TForm Destroy;　　begin　　m_frm Free;　　　　inherited Destroy;　　end;　　　　procedure TForm frm _SelectionChanged(Sender: TObject; Content: string);　　begin　　Edit Text := Content;　　end;　　　　procedure TForm btnOpenForm Click(Sender: TObject);　　begin　　m_frm ShowModal;　　end; cha138/Article/program/Delphi/201311/24690

知识大全 自定义事件实现不同窗体间的通讯Delphi篇

知识大全自定义事件实现不同窗体间的通讯Delphi篇