Недавно добавленные исходники

•  3D Designer  864

•  Sik Screen Capture  596

•  Patch Maker  542

•  Айболит (remote control)  656

•  ListBox Drag & Drop  489

•  Доска для игры Реверси  8 877

•  Графические эффекты  585

•  Рисование по маске  463

•  Перетаскивание изображений  510

•  Canvas Drawing  510

•  Рисование Луны  390

•  Поворот изображения  269

•  Рисование стержней  331

•  Paint on Shape  197

•  Генератор кроссвордов  255

•  Головоломка Paletto  231

•  Теорема Монжа об окружностях  276

•  Пазл Numbrix  188

•  Заборы и коммивояжеры  312

•  Игра HIP  211

•  Игра Go (Го)  150

•  Симулятор лифта  187

•  Программа укладки плитки  170

•  Генератор лабиринта  214

•  Проверка числового ввода  197

•  HEX View  238

•  Физический маятник  204

•  Задача коммивояжера  235

•  Автомобильная пробка  160

•  Квадратные сетки из слов  131

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Переопределить параметры формы при её создании



Данный код позволяет создать окно без неклиентской области, но с толстым бордюром:


unit MainFrm;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TMainForm = class(TForm)
    btnClose: TButton;
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
  protected
    // Capture the WM_NCHITTEST message to enable moving the form.
    procedure WMNCHitTest(var message: TWMNCHitTest); message WM_NCHITTEST;
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.WMNCHitTest(var message: TWMNCHitTest);
begin
  inherited;
  message.Result := HTCAPTION;
end;

procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := WS_THICKFRAME or WS_POPUP or WS_BORDER;
end;

procedure TMainForm.btnCloseClick(Sender: TObject);
begin
  Close;
end;

end.





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

Примеры работы с БД

Примеры оформления DBGrid

Пример использования DBGrid

База предприятий и менеджеров 0.99

 

Консольное DOS приложение

Работа с принтером

Локализация приложений




Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram