[Valart]

Здравствуйте!
Подскажите какой набор свойств нужно задать для окна, чтобы оно не имело заголовка, имело рамку и нельзя было изменить его размеры?

Без заголовка и с рамкой я сделал. А вот запретить менять размеры не получается. Изначально окно bsSizeble.

Код:

procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);

  Params.Style := (Params.Style or WS_POPUP) and not WS_DLGFRAME;
  Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW; //скрытие от alt+tab

end;

[NumLock]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
    procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
  end;

var
  Form1: TForm1;

implementation

uses Types;

{$R *.dfm}

{ TForm1 }

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style:=WS_POPUP or WS_SIZEBOX; 
end;

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
  Msg.Result:=HTCAPTION; // HTCLIENT
end;

end.

[Valart]

Только через отлов сообщения? Через стили никак не получится?

[NumLock]

если только с обычной рамкой, которая в 7 такая же как в XP. тоже как-то нужно было такое же, нашел только такой способ. хотя подождем, может у кого-то есть еще варианты.

[poli-smen]

Сообщение от Valart

Только через отлов сообщения? Через стили никак не получится?

Можно ещё использовать свойство Constrains - если в нём установит ненулевые значения при которых MinHeight будет равным MaxHeight, а MinWidth будет равным MaxWidth, то такое окно изменить не удастся. Внутренне это кстати тоже через отлов сообщений реализовано.

[NumLock]

Сообщение от poli-smen

Можно ещё использовать свойство Constrains - если в нём установит ненулевые значения при которых MinHeight будет равным MaxHeight, а MinWidth будет равным MaxWidth, то такое окно изменить не удастся. Внутренне это кстати тоже через отлов сообщений реализовано.

у этого способа (Constraints == WM_GETMINMAXINFO) есть недостаток: курсор меняет вид на "изменение размеров" на рамке. с WM_NCHITTEST такого эффекта нет.

[poli-smen]

Сообщение от NumLock

у этого способа (Constraints == WM_GETMINMAXINFO) есть недостаток: курсор меняет вид на "изменение размеров" на рамке.

Это да. И ещё такое окно можно "перемещать" за верхний левый угол (или сторону)