D5でTEditやTMemoの標準ポップアップメニューを表示しないようにする

TEditやTMemoなどはPopupMenuプロパティを未定義にしているとコントロール標準のメニューが表示されます。これを非表示にするには項目のないPopupMenuを割り当てるなどする必要があるのですが、Delphi5では別の方法でメニューの表示を回避することが出来ます。
やり方は簡単。OnContextPopupイベントハンドラ内でHandled引数をTrueにするだけです。

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  Handled := True;
end;

Copyright 2001 Rinka Kouzuki All Rights Reserved.