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

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

← →
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;

---

← →
off ©   (2003-06-25 09:53) [6]

Мастера, не стоит спорить, я реализовал след. образом, и все работает как надо.
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. К сожаленью не помню автора.
Еще раз спасибо.

---

← →
off ©   (2003-06-25 09:57) [7]

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

---

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

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



Память: 0.46 MB
Время: 0.01 c