Советы по Delphi

         

Окно без заголовка


Для создания окна без заголовка с любым стилем контура сделайте следующее:

Добавьте объявление процедуры

    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;

Установите BorderStyle в bsSizeable. [000353]



Содержание раздела