Помогите стиль 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 - это в общем случае...

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

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