Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
Вниззапретить меню в компонентов типа Edit, Memo, ComboBox Найти похожие ветки
← →
foreverDelphi © (2007-10-10 14:30) [0]самый простой, неприхотливый способ, если кто-то знает подскажите
← →
clickmaker © (2007-10-10 14:33) [1]TForm1 = class(TForm)
Memo1: TMemo;
private
{ Private declarations }
FMemoProc: TWndMethod;
procedure NewMemoProc(var Msg: TMessage);
procedure TForm1.FormCreate(Sender: TObject);
begin
FMemoProc := Memo1.WindowProc;
Memo1.WindowProc := NewMemoProc;
end;
procedure TForm1.NewMemoProc(var Msg: TMessage);
begin
if Msg.Msg = WM_CONTEXTMENU then
Msg.Result := 1
else
FMemoProc(Msg);
end;
← →
clickmaker © (2007-10-10 14:35) [2]даже проще
if Msg.Msg <> WM_CONTEXTMENU then
FMemoProc(Msg);
← →
foreverDelphi © (2007-10-10 14:41) [3]
> clickmaker ©
ок! спасибо за помощь, а то запутался!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c