Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.044 c