Как определить нажатые клавиши

← →
WASM (2007-07-03 15:45) [0]

Здравствуйте, Подскажите пожалуйста как сделать что бы при клике на TPanel текст у этой самой панели стал что то типа "Вы нажали левую кнопку мыши", жму я например Ctrl и нажимаю правую кнопку и текст на панельке " Вы нажали Ctrl + Правая кнопка мыши"
Спасибо

← →
Инс © (2007-07-03 15:48) [1]

Посмотреть на параметры Button и Shift в OnMouseDown

← →
Лысеющий Самурай (2007-07-03 15:51) [2]

> Инс © (03.07.07 15:48) [1]

Как мне перевести Button и Shift в string что бы вставить все это в Panel.Caption

← →
kilya © (2007-07-03 16:00) [3]

// 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;

что-то типа того

← →
WASM (2007-07-03 16:17) [4]

Как определить нажатые клавиши Найти похожие ветки