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

•  TDictionary Custom Sort  509

•  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 307

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

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

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

•  Canvas Drawing  963

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

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

•  Рисование стержней  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

 
скрыть


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

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



Сделать форму меньше 112 пикселей



Оформил: DeeCo

{ 
  In order to allow very small windows, 
  you need to override the default behavior for Windows message WM_GETMINMAXINFO. 
  This message is sent to your window by the OS in order to find out 
  the minimum and the maximum allowed window size. 
  You can do this by adding this method procedure to your form: 
}

 private
   procedure GetMinMaxInfo(var Msg: TWMGETMINMAXINFO); message WM_GETMINMAXINFO;
   { Private declarations }
 public
   { Public declarations }
 end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.GetMinMaxInfo(var Msg: TWMGETMINMAXINFO);
 begin
   inherited;
   with Msg.MinMaxInfo^ do
   begin
     ptMinTrackSize.X := 0; // min. Width 
    ptMinTrackSize.Y := 0; // min. Height 
  end;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   { no systemmenu }
   BorderIcons := BorderIcons - [biSystemMenu];
   { set the form's width & height }
   Width := 80;
   Height := 60;
 end;




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

Рисование математических формул




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

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