Форум: "Начинающим";
Текущий архив: 2009.05.03;
Скачать: [xml.tar.bz2];
ВнизKeyPress Найти похожие ветки
← →
vat (2009-03-19 08:56) [0]Здрасте. Хочу написать процедуру используя KeyPress, но я знаю, что клавиша "Enter" обозначается через #13, а как другие не знаю. Скажите где посмотреть
← →
немо2 (2009-03-19 09:18) [1]procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
showmessage(inttostr(Key));
end;
← →
ЮЮ © (2009-03-19 09:24) [2]Не все клавиши идут через KeyPress, некоторые через KeyUp/KeyDown
для вторых смотри модуль Windows, константы VK_xxx
а первые, практически то же, только символы, а не числаЖfunction TWinControl.DoKeyPress(var Message: TWMKey): Boolean;
var
Form: TCustomForm;
Ch: Char;
begin
Result := True;
Form := GetParentForm(Self);
if (Form <> nil) and (Form <> Self) and Form.KeyPreview and
TWinControl(Form).DoKeyPress(Message) then Exit;
if not (csNoStdEvents in ControlStyle) then
with Message do
begin
Ch := Char(CharCode);
KeyPress(Ch);
CharCode := Word(Ch);
if Char(CharCode) = #0 then Exit;
end;
Result := False;
end;
← →
vat (2009-03-19 09:26) [3]спасибо
← →
Anatoly Podgoretsky © (2009-03-19 14:32) [4]> немо2 (19.03.2009 9:18:01) [1]
А нафига ему KeyDown с его кодам клавиш?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.05.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c