| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Симуляция Ентера, бэкспейса, ИТП....

C@N ©   (2006-10-07 11:55:00) 

Пытаюсь наваять экранную клаву....
Сломал себе голову как в мемо симулировать нажатие энтера, бэкспейса и прочих тексто-навигационных кнопок клавиатуры....
К примеру

procedure TForm5.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key:=#13;
end;

не срабатывает....
тоже самое и онКейДаун и он КейАП....
или я что-то делаю не так???

---

Ketmar   (2006-10-13 20:09:00) [1]

SendInput(). rtfm.

---

C@N   (2006-10-13 19:40:00) [2]

Лююди хелп плиз)))

---

C@N   (2006-10-07 12:13:00) [3]

да вот как мне каретку переместить на новую строчку???
не канает
procedure TForm5.SpeedButton41Click(Sender: TObject);
begin
memo1.Text:=Memo1.Text+#13;
end;

Это вообще ерись
procedure TForm5.SpeedButton41Click(Sender: TObject);
begin
memo1.OnKeyPress(sender,chr(13));
end;

тоже ерунда....
procedure TForm5.SpeedButton41Click(Sender: TObject);
var
 A:TShiftState;
 B:Word;
begin
b:=13;
memo1KeyDown(sender,b ,A);
SpeedButton41.Down:=false;
end;

---

eRoR_rrr   (2006-10-07 12:05:00) [4]

Обработчик у Memo1 onKeyPress, срабатывает, когда нажата какая-нибуть кнопка в TMemo.

---

Наверх