Форум: "Основная";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];

Вниз

помогите новичку   Найти похожие ветки 

← →
Treibre   (2002-09-15 18:07) [0]

Привет всем !!!
Кто может помочь мне с такой вот штукой:
Я хотел бы перетягивать окно нажавши на любом месте формы.
За ответ был бы очень благодарен.
;)Thanks Saranie

---

← →
Poirot   (2002-09-15 18:12) [1]

procedure TForm1.MouseDown(blablabla);
const SC_DRAGMOVE = $0000F012;
begin
inherited;
if FActiveDraging then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;

---

← →
Poirot   (2002-09-15 18:14) [2]

Кстати моё мыло посмотрите!!! Мне понравилось!!!

---

← →
Treiber   (2002-09-15 18:29) [3]

вопервых спасибо за быстрий ответ.
у меня есть еще вопрос к вашему коду

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE = $0000F012;
begin
inherited;
if FActiveDraging then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;
при компиляции вываливается ошибка мол
[Error] MainUnit.pas(219): Undeclared identifier: "FActiveDraging"
что бы это могло бы быть ?
Спасибо еще раз за ответ

---

← →
Treiber   (2002-09-15 18:45) [4]

кстати я удалил следующую часть кода

begin
inherited;
if FActiveDraging then
.......
end;

и всё зафурычало БОЛЬШОЕ СПАСИБО

---

← →
Poirot   (2002-09-15 19:11) [5]

Ну это фигня из моего компонента, а переменная отвечала за включение Драгинга

---

← →
alena.svt   (2002-09-15 20:00) [6]

Лентяйство!?
http://www.delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1031811516&n=0

---

← →
Treiber   (2002-09-15 22:34) [7]

Извеняюсь.В следующий раз буду с начала искать , а потом постовать.Спасибо за Помощь.

---

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

Форум: "Основная";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c