ポップアップが閉じたイベントの拾い方

解決

nish 2005-10-01 02:55:28 No: 17812

ポップアップが閉じた時のイベントの取り方を教えてください。

delphi6 professional

メラトニン 2005-10-01 04:18:12 No: 17813

DelphiMLの過去ログにあります

えーと 2005-10-01 04:28:12 No: 17814

AutoPopUp を false にした PopupMenu1 を置いて

Edit1 の OnContextPopup イベントハンドラで

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  Edit1.Text := '';
  Windows.ClientToScreen(Edit1.Handle, MousePos);
  PopupMenu1.Popup(MousePos.X, MousePos.Y);
  Handled := true;
  Edit1.Text := 'Popup Closed'
end;

のようにするといいです。自力で PopUp するとメニューモーダルから復帰するまで
制御が戻りませんので、そのあとの文は自動的に「ポップアップが閉じた」あとに
実行されます。

nish 2005-10-03 23:06:49 No: 17815

ありがとうございました。