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

Билл Гейтс плохо учился в школе. Бывало, только смотрит в окно и ничего не делает. Любил он окна.

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

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

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.

Недавно добавленные исходники
• TDictionary Custom Sort 508 • Fast Watermark Sources 874 • 3D Designer 1 804 • Sik Screen Capture 1 457 • Patch Maker 1 460 • Айболит (remote control) 1 388 • ListBox Drag & Drop 1 159 • Доска для игры Реверси 21 306 • Графические эффекты 1 337 • Рисование по маске 1 275 • Перетаскивание изображений 1 086 • Canvas Drawing 963 • Рисование Луны 802 • Поворот изображения 755 • Рисование стержней 802 • Paint on Shape 486 • Генератор кроссвордов 747 • Головоломка Paletto 659 • Теорема Монжа об окружностях 839 • Пазл Numbrix 607 • Заборы и коммивояжеры 835 • Игра HIP 551 • Игра Go (Го) 522 • Симулятор лифта 544 • Программа укладки плитки 505 • Генератор лабиринта 560 • Проверка числового ввода 520 • HEX View 596 • Физический маятник 522 • Задача коммивояжера 556

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

Похожие по теме исходники