Форум: "Начинающим";
Текущий архив: 2013.09.15;
Скачать: [xml.tar.bz2];
ВнизНесрабатывает имитация нажатия левой кнопки мышки... Найти похожие ветки
← →
Irmantukas (2013-01-04 00:48) [0]Здравствуйте! Помогите разобраться с кодом:
procedure TForm1.DBPlanner1PlannerRightClick(Sender: TObject; Position, FromSel,
FromSelPrecise, ToSel, ToSelPrecise: Integer);
var
MausPos: TPoint;
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
GetCursorPos(MausPos);
Menu1.Popup(MausPos.X,MausPos.Y);
end;
Хочу при нажатии правой кнопки мышки симитировать нажатие левой кнопки чтобы выбрать строчку в планере и потом выводить меню. Проблема в том, что меню выскакивает, а строчка непомечаеться. Если отключить Menu1.Popup(MausPos.X,MausPos.Y), то строчка помечаеться. Помогите ребята разобраться с этим. Спасибо.
← →
KilkennyCat © (2013-01-04 00:52) [1]тебе именно визуализация нужна, или определение, на какой строчке вызвано меню?
← →
Irmantukas (2013-01-04 01:00) [2]Нужна визуализация.
← →
KilkennyCat © (2013-01-04 01:22) [3]а если сначала левой кликнуть, а потом правой, т.е. нормальным образом, то строчка остается помеченной?
← →
KilkennyCat © (2013-01-04 01:23) [4]и это случайно не TMSSoftware компонент?
← →
Irmantukas (2013-01-04 01:24) [5]Остается помеченной.
← →
Irmantukas (2013-01-04 01:25) [6]Да, TMSSoftware компонент.
← →
KilkennyCat © (2013-01-04 02:04) [7]поищи свойство типа Items.Select;
и вообще, там богатство возможностей перерисовки:
http://www.tmssoftware.com/site/manuals/TMS%20TPLANNER.pdf
← →
KilkennyCat © (2013-01-04 02:07) [8]и еще: если у тебя разрешен мультиселект, то тебе придется еще несколько накодить, имитация левого клика напортит.
← →
Irmantukas (2013-01-04 16:28) [9]Сделал так:
var
Raitclick: Integer;
...............................................................
procedure TForm1.FormActivate(Sender: TObject);
begin
Raitclick:= 0;
............
end;
procedure TForm1.DBPlanner1PlannerLeftClick(Sender: TObject; Position, FromSel,
FromSelPrecise, ToSel, ToSelPrecise: Integer);
var
MausPos: TPoint;
begin
if Raitclick = 1 then
begin
GetCursorPos(MausPos);
Menu1.Popup(MausPos.X,MausPos.Y);
end;
Raitclick:= 0;
end;
procedure TForm1.DBPlanner1PlannerRightClick(Sender: TObject; Position, FromSel,
FromSelPrecise, ToSel, ToSelPrecise: Integer);
var
MausPos: TPoint;
begin
Raitclick:= 1;
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.09.15;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.002 c