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

Вниз

Обмануть TMEMO!   Найти похожие ветки 

← →
VID   (2003-01-10 01:28) [0]

В-общем ситуация такая...
Есть форма FORM1, на которой лежит MEMO1:t DBmemo
Form1.KeyPreview = true;
Form1.onKeyDown = someproc;

procedure someproc;
begin
IF (ssCtrl in Shift) and (Key = VK_RETURN) then
showmessage("ctrl+enter");
end;

проблема:
если при нажатии CTRL+ENTER фокус установлен на MEMO1, то:
1. Появляется сообщение "ctrl+enter";
2. В MEMO1 каретка переходит на начало след строки...
надо: недопустить пункт 2.
Заметьте, у Memo1:TDBMemo нет св-ва WantReturns

есть какие-нибудь идеи ?

---

← →
MXA   (2003-01-10 01:43) [1]

begin
IF (ssCtrl in Shift) and (Key = VK_RETURN) then
showmessage("ctrl+enter");
key:=0;
end;

---

← →
VID   (2003-01-10 10:39) [2]

to mxa: уже пробовал - не помогает...

---

← →
VID   (2003-01-10 20:57) [3]

и всё таки :)

---

← →
TTCustomDelphiMaster   (2003-01-10 21:28) [4]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char($0A) then
begin
showmessage("ctrl+enter");
Key := Char(0);
end;
end;

---

← →
VID   (2003-01-10 23:00) [5]

интересная штуковина... а как узнать код ESC ?
и есть вообще алгоритм что бы узнать код любой клавиши, и любого сочетания клавищ ?

---

← →
TTCustomDelphiMaster   (2003-01-10 23:13) [6]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
showmessage(IntToStr(Integer(Key)));
end;

---

← →
Song   (2003-01-11 07:36) [7]

2VID © (10.01.03 23:00)
VK_ESCAPE

---

← →
VID   (2003-01-11 11:10) [8]

to TTCustomDelphiMaster, Song: оказывается так просто :) как всегда :)

---

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

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

Наверх

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