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

Вниз

BorderStyle bsNone не перидвигается   Найти похожие ветки 

← →
Ivolg   (2003-11-04 08:22) [0]

Здраствуйте!Помгите мне пожалуйста!Я в BorderStyle тавлю bsNone на форме,а при компиляции форма не перемещается!Как зделать когда нажимаешь на свою форму и ее можно передвигать,при свойствах:BorderStyle bsNone

---

← →
AbrosimovA   (2003-11-04 08:36) [1]

var DragPoint: TPoint;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button<>mbLeft then exit;
DragPoint:=Point(X,Y);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (Shift = [ssLeft]) then begin
Form1.Left:=Form1.Left+x-DragPoint.X;
Form1.Top:=Form1.Top+y-DragPoint.y;
end;
end;

---

← →
ZEE ©   (2003-11-04 10:16) [2]

procedure TForm1.Form1MainMouseDown(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;

---

← →
ZEE ©   (2003-11-04 10:18) [3]

еще вариант:
procedure WMNCHitTest(var M:TWMNCHitTest); message wm_NCHitTest;
...
procedure TForm1.WMNCHitTest(var M:TWMNCHitTest);
begin
inherited;
if M.Result = htClient then M.Result := htCaption;
end;

---

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

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

Наверх

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