Скачать: CL | DM;

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

← →
Игорь_   (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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c