Окна

[BOBAH13]

Доброе время суток . У меня вопрос по оформлению окон. Я создаю окно на дельфи ( без апи ) НО ... стиль к нему такой

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and (not WS_CAPTION) or WS_BORDER);

все бы отлично, но хотелось бы чтобы данное окошко не меняло размеров. Как такое реализовать ?

[Alex21]

А если так:

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_EXSTYLE ) and 
(not WS_CAPTION) or WS_BORDER);

[BOBAH13]

гм... Вы немного перепутали наверное, я же делаю GetWindowLong(Handle, GWL_STYLE ) чтобы получить флаг уже установленный окну, Вы сделаете таким образ GetWindowLong(Handle, GWL_EXSTYLE ) флаг который был установлен EXStyle а не Style ) так что я думаю немного не то...

[Slovinsky]

Ну, насчет GWL_EXSTYLE конечно же ерунда, но вот так - попробуйте:

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not (WS_CAPTION or WS_THICKFRAME) or WS_BORDER);

[Slovinsky]

Ну и вопрос в догонку... А почему вы делаете через SetWindowLong, а не как требует классика жанра через перекрытие метода CreateParams? Или почему просто не подошел BorderSlyle = bsNone?

[BOBAH13]

у BorderSlyle = bsNone у него бордюра нет ! а я же пример дал, попробуйте увидите, но мне надо чтобы окно не маштабировалось за края !

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

Ну, насчет GWL_EXSTYLE конечно же ерунда, но вот так - попробуйте:

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not (WS_CAPTION or WS_THICKFRAME) or WS_BORDER);

Попробую спасибо

[Slovinsky]

Лучше всего делать так: Выставляем форме BorderSlyle = bsNone и пишем такой код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle:=Params.ExStyle or WS_EX_DLGMODALFRAME;
end;

end.

[JTG]

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and (not WS_CAPTION) or WS_BORDER or WS_DLGFRAME);