Форум: "Основная";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];

Вниз

Программное нажатик клавиш   Найти похожие ветки 

← →
Andrey   (2002-07-08 20:40) [0]

Элементарный вопрос! Как программно нажитать клавиши клавиатуры? Мне необходимо программно на RichEdit нажать PageUp, PageDown и т.д.

---

← →
TTCustomDelphiMaster   (2002-07-08 22:33) [1]

procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.Perform(WM_KEYDOWN, vk_DOWN, 0);
RichEdit1.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
RichEdit1.Perform(WM_KEYDOWN, vk_UP, 0);
RichEdit1.SetFocus;
end;

---

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

Форум: "Основная";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c