| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

помогите новичку

Treibre ©   (2002-09-15 18:07:00) 

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

---

Treiber   (2002-09-15 22:34:00) [1]

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

---

alena.svt   (2002-09-15 20:00:00) [2]

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

---

Poirot   (2002-09-15 19:11:00) [3]

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

---

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

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

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

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

---

Treiber   (2002-09-15 18:29:00) [5]

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

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"
что бы это могло бы быть ?
Спасибо еще раз за ответ

---

Poirot   (2002-09-15 18:14:00) [6]

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

---

Poirot   (2002-09-15 18:12:00) [7]

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

---

Наверх