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

解決

nish 2005-09-30 17:55:28 No: 17812 IP: 192.*.*.*

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

delphi6 professional

メラトニン 2005-09-30 19:18:12 No: 17813 IP: 192.*.*.*

DelphiMLの過去ログにあります

えーと 2005-09-30 19:28:12 No: 17814 IP: 192.*.*.*

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 14:06:49 No: 17815 IP: 192.*.*.*

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

編集削除