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

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

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