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

Вниз

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

← →
C@N ©   (2006-10-07 11:55) [0]

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

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

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

---

← →
eRoR_rrr ©   (2006-10-07 12:05) [1]

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

---

← →
C@N ©   (2006-10-07 12:13) [2]

да вот как мне каретку переместить на новую строчку???
не канает
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;

---

← →
C@N ©   (2006-10-13 19:40) [3]

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

---

← →
Ketmar ©   (2006-10-13 20:09) [4]

SendInput(). rtfm.

---

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

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

Наверх

Память: 0.45 MB
Время: 0.045 c