Перетаскиваем форму.

← →
off © (2003-06-25 08:31) [0]

Добрый день мастера. Вопрос не сложный, но ругаться не стоит.
Если по существу, то использую прозрачную форму без бордера т.е. BorderStyle:=bsNone. На ней лежит имага. Вопрос как эту форму перетаскивать?

← →
Думкин © (2003-06-25 08:33) [1]

Отвечал - позавчера, и позопозо.... и т.д.
пройдись по форуму -... поищи.
там всего две строчки.

← →
Song © (2003-06-25 08:35) [2]

SC_DRAGMOVE, ищи по этму слову.

← →
off © (2003-06-25 08:41) [3]

Спасибо мужики. Особенно за
> SC_DRAGMOVE

← →
неРуль (2003-06-25 08:49) [4]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ch:=true;
x1:=x;
y1:=y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ch then
begin
form1.Top:=form1.Top+y-y1;
form1.left:=form1.left+x-x1;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ch:=false;
end;

можно и так, если имага на всю форму

← →
Думкин © (2003-06-25 08:57) [5]

на это я смотреть не могу.
procedure TMyForm.WMMouseDown;
begin
ReleaseCapture;
Perform(WM_SysCommand, $F012, 0)
end;

Мастера, не стоит спорить, я реализовал след. образом, и все работает как надо.
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; perform(WM_SysCommand, SC_DragMove, 0); end;
Нашел здесь по ключевому слову SC_DragMove. К сожаленью не помню автора.
Еще раз спасибо.

Вот линьк http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619881&n=16

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