Текущий архив: 2002.05.20;
Скачать: CL | DM;

Вниз

Запрет на перетаскивание   Найти похожие ветки 

← →
VJar   (2002-05-07 14:15) [0]

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

---

← →
MBo ©   (2002-05-07 14:21) [1]

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

---

← →
Song ©   (2002-05-07 14:29) [2]

DeleteMenu()

---

← →
JC ©   (2002-05-07 15:14) [3]

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

---

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

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

---

← →
SoftOne ©   (2002-05-08 02:48) [5]

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

---

← →
MBo ©   (2002-05-08 07:04) [6]

Варианты
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;

---

← →
Anatoly Podgoretsky ©   (2002-05-08 21:23) [7]

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

---

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

Текущий архив: 2002.05.20;
Скачать: CL | DM;

Наверх

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