Текущий архив: 2002.09.26;
Скачать: CL | DM;
Вниз
помогите новичку Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.021 c
