Советы по 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]
