OnClick - правая или левая кнопка мыши

[Vadim_S]

Подскажите пожалуйста как определить по событию onClick правая или левая кнопка мыши нажата?

Пытаюсь сделать PopupMenu, где по нажатию правой кнопки на пункте меню этот пункт уничтожится.
Проблема, что в PopupMenu есть только onClick, где не передается какая кнопка мыши нажата.

[mrandrey]

может, я чегото не догоню, но у Popupmenu? нет события Onclick
у меня Delphi 7, а в каком есть?

[mrandrey]

создаешь новый клас с предком какой тебе нужен
и добавляшь:

procedure MDown(var val:TWMMouse); message WM_RBUTTONDOWN ;

и появляется событие, розберешься?

[Voland]

По-моему это невозможно. Ну разве только написать свою собственную реализацию меню, не связанную с системной (как в MS Office например), но это уже дебри

[mrandrey]

TMenuIte=class(TMenuItem)
  private
  protected
  procedure MDown(var val:TWMMouse); message WM_RBUTTONDOWN;
  end;....

а затем добавляешь его вместо TMenuItem примерно так:

var h:TMenuIte;
begin
h:=TMenuIte.Create(self);
h.Caption:=timetostr(time);
pm.Items.Add(h);
end;

Ctrl+Shift+spase и допиши что должен делать

[Vadim_S]

Да, действительно, я хочу сделать событие не в PopupMenu, а в TMenuItem.
Пишу по вашему примеру:

type
TRCMenuItem = class(TMenuItem)
private 
procedure MDown(var val: TWMMouse); message WM_RBUTTONDOWN;
end;
 
type 
TForm1 = class (TForm)
private
MI: TRCMenuItem;
end;
 
procedure TRCMenuItem.MDown(var val: TWMMouse);
begin
Caption:=inttostr(Msg.Msg);
inherited;
end;
 
TForm1.FormCreate(Sender: TObject);
begin
MI:=TRCMenuItem.Create(Self);
PopupMenu1.Items.Add(MI);

По идеи должно срабатывать, но MenuItem не получает Caption.

[Voland]

Не должно срабатывать. У TMenuItem вообще нет оконной процедуры, так что такое объявление

procedure MDown(var val: TWMMouse); message WM_RBUTTONDOWN;

не имеет смысла и какого-либо эффекта. Я же говорю - в стандартной реализации меню этого не сделаешь. Можно попробовать меню из ActionBands или как их там. В них наверное можно.

[Andr]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var mouseRF,mouseLF:Boolean;
begin
{твой код}
end;

[cemen13]

Всем привет подскажите как вызвать виндовское меню правой кнопки мыши там еще есть такое подменю Отправит---а внем --- на рабочий стол --- мои документы и т.д