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

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

← →
Washington ©   (2007-09-12 10:14) [0]

Как запретить изменение местоположения формы без использования borderstyle?

---

← →
Вася Правильный   (2007-09-12 10:47) [1]

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

---

← →
Lacmus ©   (2007-09-12 10:53) [2]

>Washington ©   (12.09.07 10:14)  


   procedure CreateHandle; override;
 end;

var
 Form54: TForm54;

implementation

{$R *.dfm}

procedure TForm54.CreateHandle;
begin
 inherited;
 DeleteMenu(GetSystemMenu(Handle, False), SC_MOVE, MF_BYCOMMAND)
end;


---

← →
Washington ©   (2007-09-12 11:17) [3]

> Lacmus ©   (12.09.07 10:53) [2]

А форма то всё равно двигается

---

← →
Anatoly Podgoretsky ©   (2007-09-12 11:33) [4]

Изучать ВинАПИ, стили окон, сообщения - сделаешь все.

---

← →
Washington ©   (2007-09-12 11:34) [5]

> Anatoly Podgoretsky ©   (12.09.07 11:33) [4]
Как раз скачал русский хелп. Сяду читать. Спасибо

---

← →
Denis_ ©   (2007-09-12 12:53) [6]

> Сяду читать. Спасибо

А писал всё время стоя?

---

← →
Denis_ ©   (2007-09-12 12:54) [7]

ЗЫ писАл :))

---

← →
Washington ©   (2007-09-12 13:58) [8]

> А писал всё время стоя?
ага

---

← →
MsGuns ©   (2007-09-12 22:05) [9]

Один из вариантов:

public
  ...
  StartPoint: TPoint;
  procedure ChangePosition(var Msg: TMessage); message WM_WINDOWPOSCHANGING;

implementation

procedure TForm1.FormShow(Sender: TObject);
begin
 StartPoint.X := Left;
 StartPoint.Y := Top;
end;

procedure TForm1.ChangePosition(var Msg: TMessage);
begin
 Left := StartPoint.X;
 Top := StartPoint.Y;
 Abort;
end;

---

← →
MsGuns ©   (2007-09-12 22:24) [10]

Правда не без "кривизны" ;)

---

← →
Альф   (2007-09-13 08:58) [11]

Такая программа сразу же улетит в корзину...

Без обид :)

---

← →
Anatoly Podgoretsky ©   (2007-09-13 09:11) [12]

А можно и с обидами.

---

← →
grisme ©   (2007-09-13 09:37) [13]

ловить WM_NCHITTEST и на некоторые флаги нилить

---

Страницы: 1 вся ветка

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



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