[vah-smile]

Доброе время суток!
Подскажите пожалуйста, как заставить окно форми (Form1) вывести на экран без "заголовка окна" (Form1.BorderStyle:='bsNone'), при этом размер окна (Form1) можна было бы изменять при помощи мыши (так как и в случае Form1.BorderStyle:='bsSizeable')? Спасибо.

[lmikle]

Стандартными способами - никак.
Можно сделать свой обработчик мыши по краям формы, а окно оставить без рамки.

[vah-smile]

Ясно... А можна ли оставить стандартный "Заголовок окна" (Form1.BorderStyle:='bsSizeable') но при этом убрать все кнопки управления окном (Свернуть, Развернуть, Закрыть)

[lmikle]

Да, можно. См. в инспекторе объектов BorderIcons

[0nni]

Проще некуда...

Код:

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}

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

end.

[vah-smile]

Огромное спасибо 0nni

[lmikle]

Микроскопом забиваем гвозди?
Зачем так сложно, когда это все вынесено в инспектор объектов?

[0nni]

2lmikle, сделай такое окно в инспекторе объектов и с меня пиво