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

•  3D Designer  830

•  Sik Screen Capture  572

•  Patch Maker  514

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

•  ListBox Drag & Drop  465

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

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

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

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

•  Canvas Drawing  488

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

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

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

•  Paint on Shape  189

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

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

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

•  Пазл Numbrix  185

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

•  Игра HIP  204

•  Игра Go (Го)  145

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

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

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

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

•  HEX View  231

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

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

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

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

 
скрыть


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

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



Как сделать родительское окно с фоновым рисунком в клиентской области




  • Сначала установите свойство формы FormStyle в fsMDIForm.
  • Затем разместите Image на форме и загрузите в него картинку.
  • Найдите { Private Declarations } в обьявлении формы и добаьте следующие строки:

FClientInstance: TFarProc;
FPrevClientProc: TFarProc;
procedure ClientWndProc(var message: TMessage);

  • Добавьте следующие строки в разделе implementation:

procedure TMainForm.ClientWndProc(var message: TMessage);
var
  Dc: hDC;
  Row: Integer;
  Col: Integer;
begin
  with message do
    case Msg of
      WM_ERASEBKGND:
      begin
        Dc := TWMEraseBkGnd(message).Dc;
        for Row := 0 to ClientHeight div Image1.Picture.Height do
          for Col := 0 to ClientWidth div Image1.Picture.Width do
            BitBlt(Dc, Col * Image1.Picture.Width, Row *
            Image1.Picture.Height, Image1.Picture.Width,
            Image1.Picture.Height, Image1.Picture.Bitmap.Canvas.Handle,
            0, 0, SRCCOPY);
        Result := 1;
      end;
      else
        Result := CallWindowProc(FPrevClientProc,
        ClientHandle, Msg, wParam, lParam);
    end;
end;

  • По созданию окна [событие OnCreate()] напишите такой код:

FClientInstance := MakeObjectInstance(ClientWndProc);
FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));

  • Добавьте к проекту новую форму и установите ее свойство FormStyle в fsMDIChild




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

Блокнотик




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

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