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

регион   Найти похожие ветки 

← →
race1 ©   (2003-01-07 14:39) [0]

как определить прямоугольник, нажав на который юзер может передвигать форму?

---

← →
Юрий Зотов ©   (2003-01-07 15:25) [1]

type
TForm1 = class(TForm)
private
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
end;

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
if PtInRect(Rect(10, 10, 100, 100), ScreenToClient(SmallPointToPoint(Message.Pos)))
then Message. Result := HTCAPTION
else inherited
end;

---

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

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



Память: 0.44 MB
Время: 0.01 c