Текущий архив: 2005.10.02;
Скачать: 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 вся ветка
Текущий архив: 2005.10.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
