[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) есть недостаток: курсор меняет вид на "изменение размеров" на рамке.

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

[Valart]

Попробовал вариант с перехватом сообщения. Размеры окна не изменяются, но окно можно перемещать за любое место рамки. Это можно как-то устранить?
Ведь создаёт же винда как-то вот это окно (лоток со свёрнутыми значками в трее):


Window Detective показывает для него следующие стили:

Styles
WS_OVERLAPPED
WS_MINIMIZEBOX
WS_GROUP
WS_THICKFRAME
WS_BORDER
WS_CLIPSIBLINGS
WS_POPUP

Extended Styles
WS_EX_LEFT
WS_EX_LTRREADING
WS_EX_RIGHTSCROLLBAR
WS_EX_TOPMOST
WS_EX_TOOLWINDOW
WS_EX_WINDOWEDGE
WS_EX_PALETTEWINDOW

[poli-smen]

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

Попробовал вариант с перехватом сообщения. Размеры окна не изменяются, но окно можно перемещать за любое место рамки. Это можно как-то устранить?

Потому что в ответ на сообщение WM_NCHITTEST нужно возвращать не HTCAPTION, а HTCLIENT. Думаю NumLock в своём примере использует HTCAPTION просто чтобы продемонстрировать тебе в чём заключается смысл сообщений WM_NCHITTEST.

[NumLock]

так точно. даже в примере комментарий HTCLIENT стоит для решения этого вопроса, надеялся что он все-таки не возникнет

[Valart]

Ночью, когда я сонный наконец добрался до делфей, комментарий я проигнорировал! А смысл переназначения области получения сообщения я понял.