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

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

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

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

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

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