| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить нажатые клавиши [D7, XP]
WASM © (2007-07-03 15:45:00)Здравствуйте, Подскажите пожалуйста как сделать что бы при клике на TPanel текст у этой самой панели стал что то типа 'Вы нажали левую кнопку мыши', жму я например Ctrl и нажимаю правую кнопку и текст на панельке ' Вы нажали Ctrl + Правая кнопка мыши'
Спасибо
WASM (2007-07-03 16:17:00) [1]
> kilya © (03.07.07 16:00) [3]
Спасибо
kilya (2007-07-03 16:00:00) [2]
// TShiftState = set of (ssShift, ssAlt, ssCtrl,
// ssLeft, ssRight, ssMiddle, ssDouble);
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssShift in Shift then Panel1.caption := Panel1.caption +'шифт';
if ssAlt in Shift then Panel1.caption := Panel1.caption +' альт';
//и т.д.
end;
что-то типа того
Лысеющий Самурай (2007-07-03 15:51:00) [3]
> Инс © (03.07.07 15:48) [1]
Как мне перевестиButtonиShiftвstringчто бы вставить все это в Panel.Caption
Инс (2007-07-03 15:48:00) [4]Посмотреть на параметры Button и Shift в OnMouseDown
| |
