Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];

Вниз

Chart   Найти похожие ветки 

← →
Лана Розанова   (2002-05-27 12:06) [0]

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

---

← →
KilkennyCat   (2002-05-27 12:57) [1]

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

---

← →
MBo   (2002-05-27 13:08) [2]

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

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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c