Текущий архив: 2002.07.18;
Скачать: CL | DM;

Вниз

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

← →
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;
Скачать: CL | DM;

Наверх

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