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

Помогите стиль bsnone как ее можна перетакивать???????   Найти похожие ветки 

← →
Master   (2003-10-23 01:16) [0]

Форма имеет стиль bsnone вместо заголовка рисунок как сделать,
чтобы можно было за него ее (форму) таскать по экрану.

---

← →
Александр-И   (2003-10-23 01:37) [1]

Придется писать для заголовка (рисунка) обаботчик мышки. Прмерно так :

var
oldPosX, oldPosY: Integer;
flagMoved: Boolean;

......

{============================================================== }
procedure TGlav.pnlCaptionMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
flagMoved:=True;
oldPosX:=X; oldPosY:=Y;
end;

{============================================================== }
procedure TGlav.pnlCaptionMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
IF flagMoved Then begin
Glav.Left:=Glav.Left + X - oldPosX;
Glav.Top :=Glav.Top + Y - oldPosY;
end;
end;

{ ============================================================= }
procedure TGlav.pnlCaptionMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
flagMoved:=False;
end;

---

← →
zapped   (2003-10-23 11:03) [2]

вот как за TPanel можно таскать форму...

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
try
TControl(Sender).Parent.Perform(WM_SysCommand, $F012, 0);
except
end;
end;

TControl - это в общем случае...

---

← →
REA ©   (2003-10-23 11:48) [3]

Перегрузить WM_NCHITTEST?
А вообще это моветон.

---

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

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



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