Форум: "Основная";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];
ВнизПеретаскиваем форму. Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c