Текущий архив: 2003.01.20;
Скачать: CL | DM;
Вниз
Обмануть 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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.024 c
