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

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

Несрабатывает имитация нажатия левой кнопки мышки... [D2005, XP]

Irmantukas ©   (2013-01-04 00:48:00) 

Здравствуйте! Помогите разобраться с кодом:

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), то строчка помечаеться. Помогите ребята разобраться с этим. Спасибо.

---

Irmantukas   (2013-01-04 16:28:00) [1]

Сделал так:


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;


---

KilkennyCat   (2013-01-04 02:07:00) [2]

и еще: если у тебя разрешен мультиселект, то тебе придется еще несколько накодить, имитация левого клика напортит.

---

KilkennyCat   (2013-01-04 02:04:00) [3]

поищи свойство типа Items.Select;  
и вообще, там богатство возможностей перерисовки:
http://www.tmssoftware.com/site/manuals/TMS%20TPLANNER.pdf

---

Irmantukas   (2013-01-04 01:25:00) [4]

Да, TMSSoftware компонент.

---

Irmantukas   (2013-01-04 01:24:00) [5]

Остается помеченной.

---

KilkennyCat   (2013-01-04 01:23:00) [6]

и это случайно не TMSSoftware компонент?

---

KilkennyCat   (2013-01-04 01:22:00) [7]

а если сначала левой кликнуть, а потом правой, т.е. нормальным образом, то строчка остается помеченной?

---

Irmantukas   (2013-01-04 01:00:00) [8]

Нужна визуализация.

---

KilkennyCat   (2013-01-04 00:52:00) [9]

тебе именно визуализация нужна, или определение, на какой строчке вызвано меню?

---

Наверх