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

Глюк Windows?   Найти похожие ветки 

← →
Anton_K ©   (2005-09-13 23:18) [0]

Windows XP SP2, Delphi 7
Создаём форму с BorderStyle = bsSingle, пишем

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 if (X>=ClientWidth) or (Y>=ClientHeight) then Application.MessageBox("Глюк!","");
end;

MSDN говорит, что X и Y координаты клиентской области окна, следовательно они не могут быть больше, чем ClientWidth-1 (или ClientHeight-1). Если же кликнуть мышью на рамке окна, то всплывёт MessageBox. Как так? Неужели в МС даже такую простую вещь нормально реализовать не могут?

---

← →
TUser ©   (2005-09-14 00:19) [1]

У меня глюка нет. D7, Win2000.

---

← →
Eraser ©   (2005-09-14 01:08) [2]

> Anton_K ©   (13.09.05 23:18)

может щёлкаешь не по рамке?
размеры клиентской области и координаты щелчка - в студию )

---

← →
Anton_K ©   (2005-09-14 15:37) [3]

> Eraser ©   (14.09.05 01:08) [2]


Именно по рамке. Размеры клиентской области могут быть любыми, возьмём к примеру 200х200. Щёлкаем по правой границе окна (точнее по первому пикселу после клиетской области) и получаем сообщение с Х=200.

---

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

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



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