DELPHI XE5 跨平台 Form ShowModal 官方示例

最新推荐文章于 2023-08-26 14:39:27 发布

weixin_30945039

最新推荐文章于 2023-08-26 14:39:27 发布

阅读量153

点赞数

原文链接：http://www.cnblogs.com/happyhills/p/3893320.html

版权

Calling ShowModal as an Anonymous Method on All Platforms



procedure THeaderFooterForm.btnPickClick(Sender: TObject); var dlg: TForm1; begin dlg := TForm1.Create(nil); // select current value, if available in the list dlg.ListBox1.ItemIndex := dlg.ListBox1.Items.IndexOf(edit1.Text);   dlg.ShowModal(procedure(ModalResult: TModalResult) begin if ModalResult = mrOK then // if OK was pressed and an item is selected, pick it if dlg.ListBox1.ItemIndex >= 0 then edit1.Text := dlg.ListBox1.Items [dlg.ListBox1.ItemIndex]; dlg.DisposeOf; end);   end;