Свойство формы

← →
Игорь_ (2004-07-21 15:53) [0]

Подскажите новичку свойство окна и его значение для работающей программы, которое позволит перемещать окно при работе программы

← →
Ega23 © (2004-07-21 15:55) [1]

??? Изложи по-понятнее.

← →
DK (2004-07-21 15:57) [2]

Left и Top

← →
Игорь_ (2004-07-21 15:59) [3]

свойство разрешающее/запрещающее перетаскивать мышкой окно работающей формы

← →
Ega23 © (2004-07-21 16:02) [4]

Понял. Это
TForm.BorderStyle
Почитай про все стили.

← →
clickmaker © (2004-07-21 16:08) [5]

type
TYourForm
procedure WMNCHitTest(var Message: TMessage); message WM_NCHITTEST;
FAllowMove: boolean;

...

procedure TYourForm.WMNCHitTest(var Message: TMessage);
begin
Message.Result := DefWindowProc(Handle, Message.Msg, Message.WParam, Message.LParam);
if (Message.Result = HTCAPTION) and (not FAllowMove) then
Message.Result := HTCLIENT
end;

← →
Игорь_ (2004-07-21 16:16) [6]

Спасибо всем. Буду разбираться.

← →
Игорь_ (2004-07-21 17:44) [7]

Для Ega23. К сожалению свойство TForm.BorderStyle =bsSingle
Отключает только возможность изменения размеров формы, а не отключает возможность перемещения ее по экрану.
Для clickmaker - мне нужно свойство, а не процедура.

← →
grom (2004-07-21 17:49) [8]

Align:=alCustom;

Вопрос был задан: "... которое ПОЗВОЛИТ ПЕРЕМЕЩАТЬ окно при работе программы ..."

bsNone подойдёт?

← →
Игорь_ (2004-07-21 17:52) [10]

Ха полдня мучился. Спасибо grom.

← →
Игорь_ (2004-07-21 17:56) [11]

Для Ega23 Вопрос был задан: "... которое ПОЗВОЛИТ ПЕРЕМЕЩАТЬ окно при работе программы ..." так он был задан в учебном пособии. Теперь понимаю - что вопрос поставлен неправильно.Спасибо

Свойство формы Найти похожие ветки