| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Местоположение формы

Washington ©   (2007-09-12 10:14:00) 

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

---

grisme   (2007-09-13 09:37:00) [1]

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

---

Anatoly Podgoretsky   (2007-09-13 09:11:00) [2]

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

---

Альф   (2007-09-13 08:58:00) [3]

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

Без обид :)

---

MsGuns   (2007-09-12 22:24:00) [4]

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

---

MsGuns   (2007-09-12 22:05:00) [5]

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

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;

---

Washington   (2007-09-12 13:58:00) [6]

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

---

Denis_   (2007-09-12 12:54:00) [7]

ЗЫ писАл :))

---

Denis_   (2007-09-12 12:53:00) [8]

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

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

---

Washington   (2007-09-12 11:34:00) [9]

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

---

Anatoly Podgoretsky   (2007-09-12 11:33:00) [10]

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

---

Washington   (2007-09-12 11:17:00) [11]

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

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

---

Lacmus   (2007-09-12 10:53:00) [12]

>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;


---

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

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

---

Наверх