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

Вниз

Определение копки   Найти похожие ветки 

← →
Checist [root]   (2003-01-12 04:19) [0]

В событии KeyPress одного компонента нужно сравнить нажатую с нужной - то есть : if key = "нужной кнопки" then...
Как обозначить "нужную кнопку" если это: Enter, Ctrl, Shift, Alt.

---

← →
Song   (2003-01-12 10:33) [1]

IF Key=Chr(VK_RETURN) then ... // - Enter

ну и т.д. Shift - VK_SHIFT, Alt - VK_MENU, Ctrl - VK_CONTROL

---

← →
Нежить   (2003-01-12 11:07) [2]

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
var Mess: string;
begin Mess := "FormKeyPress With " + TComponent(Sender).Name + " and ";
case Ord(Key) of {F1 - Virtual Key Codes}
VK_RETURN: Mess := Mess + "Enter pressed";
VK_TAB: Mess := "Ты никогда не увидишь подобного сообщения";
VK_ESCAPE: Close;
else Mess := Mess + "Ord(Key) is " + IntToStr(Ord(Key))
end;
ShowMessage(Mess);
end;

Ешё: http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1042307759&n=0

---

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

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

Наверх

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