Запрет на перетаскивание

← →
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), у него же два вопроса.

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