Скачать: CL | DM;

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

← →
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]

> kilya ©   (03.07.07 16:00) [3]


Спасибо

---

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

Скачать: CL | DM;



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