| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Chart

Лана Розанова ©   (2002-05-27 12:06:00) 

Как сделать так, чтобы при скроллинге правой кнопкой мыши графика не вылезала PopupMenu. И вылезала когда надо?
СПАСИБО!!!

---

MBo   (2002-05-27 13:08:00) [1]

если я правильно понял вопрос, то

var
savepopup:TPopupMenu;
...

procedure TForm1.Chart1Scroll(Sender: TObject);
begin
if chart1.PopupMenu<>nil then begin
savepopup:=chart1.PopupMenu;
chart1.PopupMenu:=nil;
end;
end;

procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (chart1.PopupMenu=nil) and (savepopup<>nil) then
chart1.PopupMenu:=savepopup;
end;

---

KilkennyCat   (2002-05-27 12:57:00) [2]

ChartMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (button = mbRight) and МенюМожно then Meню.PopUp(x,y);
end;

---

Наверх