Скачать: CL | DM;

Как послать клавиатурное сочетание   Найти похожие ветки 

← →
netmouse ©   (2005-04-21 19:30) [0]

Для навигации по DbGrid использую:
SendMessage(DBGrid.Handle,wm_keydown, vk_End, 0);
как послать CTRL+A?
подскажите пожалуйста!

---

← →
Ученик   (2005-04-21 23:01) [1]

Может достаточно будет

type
 TDBGridAccess = class(TDBGrid);

TDBGridAccess(DBGrid).KeyDown(var Key: Word; Shift: TShiftState);

---

← →
ANB ©   (2005-04-22 09:17) [2]

DBGrid твоего приложения ?

---

← →
Vovka   (2005-04-23 01:09) [3]

Проще простого:

var KeyState: TKeyboardState;
begin
KeyState[VK_LCONTROL]:= 1;
SetKeyboardState(KeyState);
SendMessage(Form2.Handle, WM_KEYDOWN,  Ord("A") , 0);
end;

---

← →
Vovka   (2005-04-23 01:11) [4]

или там ДБГрид.Хэндл...

---

← →
VMcL ©   (2005-04-23 10:55) [5]

>>Vovka   (23.04.05 01:09) [3]

Про инициализацию KeyState генератор случайных чисел позаботится?

---

← →
Набережных С. ©   (2005-04-23 15:51) [6]

> VMcL ©   (23.04.05 10:55) [5]

Не, Билл Гейтс. Лично. Он давно уже только и мечтает, как бы это какому-нибудь Вовке массив проинициализировать...

---

← →
Vovka   (2005-04-23 22:05) [7]

2netmouse
Извиняюсь за пургу, правильно будет так:

Keybd_Event(VK_LControl, MapVirtualKey(VK_LControl, 0), KEYEVENTF_EXTENDEDKEY or 0, 0);
Keybd_Event(Ord("A"), MapVirtualKey(Ord("A"), 0), KEYEVENTF_EXTENDEDKEY or 0, 0);
Keybd_Event(Ord("A"), MapVirtualKey(Ord("A"), 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
Keybd_Event(VK_LControl, MapVirtualKey(VK_LControl, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

Зачем я "отпускаю" клавишу "А", не знаю, - работает без проблем и так.

---

← →
Vovka   (2005-04-23 22:12) [8]

специально, чтобы модераторы не скучали.

Уважаемые мастера. И прочие. Мне кажется, что, найдя ошибку, настоящий мастер просто поправит ошибающегося.
А пальцы гнуть и пиво пить и я умею.

---

← →
Набережных С. ©   (2005-04-24 11:39) [9]

> Vovka   (23.04.05 22:12) [8]
> А пальцы гнуть и пиво пить и я умею.

Докажи.

> Мне кажется

Есть мнение, что в таких нужно перекреститься. Попробуй, вдруг поможет.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c