Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Перетаскивание формы   Найти похожие ветки 

← →
Volly ©   (2003-03-09 18:44) [0]

Как можно перетаскивать форму через Shape и ни за что более?

---

← →
Song ©   (2003-03-09 19:52) [1]

WM_NCHITTEST

---

← →
Volly ©   (2003-03-09 20:28) [2]

Хм... И что?

---

← →
Guerrillero ©   (2003-03-09 23:26) [3]

procedure TForm1.HitTest(var Msg: TWMNCHitTest);
var
P: TPoint;
begin
inherited;
P := Point(Msg.XPos,Msg.YPos);
P := ScreenToClient(P);
if ControlAtPos(P,True,True) = Shape1 then
if Msg.Result = HTCLIENT then
Msg.Result := HTCAPTION;
end;

---

← →
Яков Чебунин   (2003-03-10 03:51) [4]

Проще так:

procedure TForm1.Shape1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
if Button = mbLeft then
begin
ReleaseCapture;
Perform(WM_SysCommand, SC_DragMove, 0);
end;
end;

---

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

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c