Программное нажатие 3-х клавиш

[artemavd]

Добрый день! Мне программно нужно, нажав на Button1, установить курсор на любой ячейке DBGrid и выполнить программное нажатие трех клавиш (Ctrl+F+F). Как и с помощью чего это можно сделать? Заранее спасибо.

[raxp]

keybd_event(vk_control, 0, 0, 0);
keybd_event(ord('F'), 0, 0, 0);
keybd_event(ord('S'), 0, 0, 0);

keybd_event(ord('S'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(ord('F'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(vk_control, 0, KEYEVENTF_KEYUP, 0);

Ctrl+F+F

еще одна F - это что? Может речь не о трех клавишах, а о двух <Ctrl>+<F>, а уже потом еще одно нажатие <F>?

[Stilet]

и выполнить программное нажатие трех клавиш (Ctrl+F+F)

Как я понимаю программа не твоя.
Иначе бы не было смысла в таком геморрое

[artemavd]

Неправильно поняли меня. Объясняю подробнее. В компоненте DBGridEh при нажатии Ctrl+F+F появляется диалоговое окно с поиском. Мне нужно вызвать его нажатием на кнопку (Button1). При однократном нажатии Ctrl+F активируется возможность инкрементого поиска по столбцу. Если нажать Ctrl+F и не отпуская Ctl нажать еще раз F то появится то самое окно. У кого есть возможность проверить - проверьте то, что я говорю и поймете о чем я.

Как я понимаю программа не твоя

Неверно. Программа моя.

[Stilet]

В компоненте DBGridEh при нажатии Ctrl+F+F появляется диалоговое окно с поиском.

Прими мои соболезнования... Неужели нет никаких методов в VCL Этой библиотеки чтоб вызвать это окно?

[artemavd]

Вот, в одном из модулей этого компонента нашел следующий код (может это и есть функция вызова диалога поиска):

procedure ExecuteDBGridEhFindDialog(Grid: TCustomDbGridEh; Text, FieldName: String;
  ColumnFields: TColumnFieldsArrEh;  Modal: Boolean);
begin
  if not Assigned(DBGridEhFindDlg) then
    DBGridEhFindDlg := TDBGridEhFindDlg.Create(Application);
  DBGridEhFindDlg.Execute(Grid, Text, FieldName, ColumnFields, Modal);
end;

Как теперь ее вызвать в программе? Располагается в модуле DBGridEhFindDlgs

[Stilet]

А-а-а ну так теперь тее стоит поискать свойство FindDialog среди набора свойств грида. Кинешь на форму свой FindDialog из вкладки Dialogs, и вызовешь его методом execute

[artemavd]

У него нет такого свойства

[Stilet]

Зашибись
Фтопку може эту либу дурную?

[artemavd]

Нет, не в топку. Но мне нужно решить как-то этот вопрос.