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;

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

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;

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