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

Вниз

shift: TShiftState;   Найти похожие ветки 

← →
Noway ©   (2004-03-16 11:13) [0]

как работать с shift: TShiftState в событиии OnMouseMove?

---

← →
serge ©   (2004-03-16 11:18) [1]

Все очень просто - жмешь Ф1 а там есть пунктик такой - екзампле


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 if ssLeft in Shift then { make sure button is down }
 begin
   if Y > StartY then
     begin
     StatusBar1.Panels[0].Text := "Top: " + IntToStr(StartY);
     StatusBar1.Panels[2].Text := "Bottom: " + IntToStr(Y);
     end
   else
     begin
     StatusBar1.Panels[0].Text := "Top: " + IntToStr(Y);
     StatusBar1.Panels[2].Text := "Bottom: " + IntToStr(StartY);

     end;
   if X > StartX then
     begin
     StatusBar1.Panels[1].Text := "Left: " + IntToStr(StartX);
     StatusBar1.Panels[3].Text := "Right: " + IntToStr(X);
     end
   else
     begin
     StatusBar1.Panels[1].Text := "Left: " + IntToStr(X);
     StatusBar1.Panels[3].Text := "Right: " + IntToStr(StartX);
     end;
 end;
end;


---

← →
miwa ©   (2004-03-16 11:18) [2]

if (ssShift in shift) of (ssCtrl in Shift) then...

---

← →
Agent13 ©   (2004-03-16 11:19) [3]

if ssShift in Shift then нажата клавиша Shift и т.п.

---

← →
miwa ©   (2004-03-16 11:20) [4]

Упс...
Не только не успел, но еще и ошибся :о((
Имел в виду

if (ssShift in Shift) OR (ssCtrl in Shift) then...


---

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

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

Наверх

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