Обмануть 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 ?
и есть вообще алгоритм что бы узнать код любой клавиши, и любого сочетания клавищ ?

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

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

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