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