Форма во весь экран 2

procedure TForm1.FormShow(Sender: TObject);
var
  r : TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @r,0);
  Form1.SetBounds(r.left, r.top, r.Right - r.left, r.bottom - r.top);
end;

Недавно добавленные исходники
• TDictionary Custom Sort 2 679 • Fast Watermark Sources 2 548 • 3D Designer 4 185 • Sik Screen Capture 2 856 • Patch Maker 3 061 • Айболит (remote control) 2 893 • ListBox Drag & Drop 2 490 • Доска для игры Реверси 74 593 • Графические эффекты 3 314 • Рисование по маске 2 536 • Перетаскивание изображений 2 123 • Canvas Drawing 2 193 • Рисование Луны 2 129 • Поворот изображения 1 699 • Рисование стержней 1 733 • Paint on Shape 1 216 • Генератор кроссвордов 1 801 • Головоломка Paletto 1 445 • Теорема Монжа об окружностях 1 806 • Пазл Numbrix 1 348 • Заборы и коммивояжеры 1 612 • Игра HIP 1 098 • Игра Go (Го) 1 059 • Симулятор лифта 1 221 • Программа укладки плитки 1 011 • Генератор лабиринта 1 321 • Проверка числового ввода 1 085 • HEX View 1 266 • Физический маятник 1 137 • Задача коммивояжера 1 168

Форма во весь экран 2

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