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

← →
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]

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

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

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

Докажи.

> Мне кажется

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

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