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

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

Запрет на перетаскивание [D5, Win95/98]

VJar ©   (2002-05-07 14:15:00) 

Как запретить перетаскивать форму по экрану???
Как запретить пункт "Переместить", который вызывается
щелкнув правой клавишей мыши по заголовку окна???

---

Anatoly Podgoretsky   (2002-05-08 21:23:00) [1]

SoftOne © (08.05.02 02:48)
Ни фига, не только MBo © (07.05.02 14:21), но и Song © (07.05.02 14:29), у него же два вопроса.

---

MBo   (2002-05-08 07:04:00) [2]

Варианты
1)
TForm1 = class(TForm)
private
procedure WMWINDOWPOSCHANGING(var msg: TWMWINDOWPOSCHANGING);
message WM_WINDOWPOSCHANGING;

procedure TForm1.WMWINDOWPOSCHANGING(var msg: TWMWINDOWPOSCHANGING);
begin
msg.WindowPos^.flags:=msg.WindowPos^.flags or SWP_NOMOVE ;
end;

но это не очень хорошо работает- рамка двигается

2)
private
procedure WMNCHitTest(var M:TMessage); message WM_NCHITTEST;

procedure TForm1.WMNCHitTest(var M:TMessage);
begin
inherited;
if M.Result=2 then M.Result:=0;
end;

3)
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType and $FFF0)=SC_MOVE then
Msg.Result := 0
else
inherited;
end;

---

SoftOne   (2002-05-08 02:48:00) [3]

Конкретнее MBo © (07.05.02 14:21)
быть не может.

---

VJar   (2002-05-08 01:39:00) [4]

Я не спей, а только учусь. Может кто-то поконкретней напишет???

---

JC   (2002-05-07 15:14:00) [5]

В [Форма].OnResize пиши Left:=[Значение], Top:=[Значение].

---

Song   (2002-05-07 14:29:00) [6]

DeleteMenu()

---

MBo   (2002-05-07 14:21:00) [7]

WM_WINDOWPOSCHANGING обрабатывать

---

Наверх