БОЛЬШОЙ FAQ ПО 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.




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ