Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
3-85333
Вадим-2
2002-09-04 09:43
2002.09.26
Работа с DBF без BDE в Delhi 5 ?


14-85691
michael_b
2002-09-01 20:26
2002.09.26
Подскажите книгу по написанию клиент-серверных в delphi


1-85585
[WhItE]
2002-09-14 00:29
2002.09.26
Delphi Outlook(Входящие)


6-85638
OFP
2002-07-18 16:21
2002.09.26
Как отправить из программы ,SMS на мобилку?


14-85666
MsGuns
2002-08-28 19:34
2002.09.26
Крутой English