[opel431]

Можно так (Delphi 7).

Ставим BorderStyle -> bsSingle

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


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

[Malfatto]

opel431, к сожалению, не помогло

[opel431]

opel431, к сожалению, не помогло »

В Delphi 7 + XP все работает.

Тогда смотрите WM_NCHITTEST (HTBOTTOM, HTBOTTOMLEFT, HTBOTTOM, HTTOP, HTOPLEFT и HTTOPRIGHT).

Я, вообще сразу не посмотрел на скрин, и поэтому дал процедуру на запрет изменения формы.
Cделайте форму без Caption.

[Malfatto]

opel431, простите, а что Ваш код вообще должен делать? Просто не силён я в этих "мессаджах"... Он должен, я так понимаю, запретить изменение размеров формы? Или он именно меняет стиль формы как в первом посте?

[opel431]

он именно меняет стиль формы как в первом посте? »

Я, ориентировался на ваш диалог, о запрете изменения размеров формы = "убрать стрелки".

Форма без Caption!

procedure CreateParams(var Params: TCreateParams); override;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited Createparams(Params);
with Params do
Style := (Style or WS_POPUP) and not WS_DLGFRAME;
end;

[Malfatto]

opel431, хм, также не помогло. остаётся лишь рамка шириной 1 пиксель, а не то, что в 1 посте.

[opel431]

акже не помогло. остаётся лишь рамка шириной 1 пиксель, а не то, что в 1 посте. »

Для этого у формы и панелей есть свойство BorderWidth.

Ладно! Сейчас по быстрому пример набросаю и выложу.

[Malfatto]

opel431, всё равно непохоже на то, что надо

[opel431]

opel431, всё равно непохоже на то, что надо »

Спасибо, за потраченное на меня время!

[Malfatto]

Спасибо, за потраченное на меня время! »

=D да, спасибо конечно. просто уже довольно долго пытаюсь решить проблему, забываю говорить всем "спасибо".