Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
Вниз
Свойство формы Найти похожие ветки
← →
Игорь_ (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;
← →
Ega23 © (2004-07-21 17:51) [9]Вопрос был задан: "... которое ПОЗВОЛИТ ПЕРЕМЕЩАТЬ окно при работе программы ..."
bsNone подойдёт?
← →
Игорь_ (2004-07-21 17:52) [10]Ха полдня мучился. Спасибо grom.
← →
Игорь_ (2004-07-21 17:56) [11]Для Ega23 Вопрос был задан: "... которое ПОЗВОЛИТ ПЕРЕМЕЩАТЬ окно при работе программы ..." так он был задан в учебном пособии. Теперь понимаю - что вопрос поставлен неправильно.Спасибо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.044 c
