|
|
|
|
Окно без заголовка
Для создания окна без заголовка с любым стилем контура сделайте следующее:
Добавьте объявление процедуры
|
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]
|
|
|
|
|