Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Октябрь 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 19.10.04 09:18

Лучшее из нашего FAQ   |x|
Как сделать родительское окно с фоновым рисунком в клиентской области?
Для того чтобы сделать это выполните следующие шаги:
      Срздайте новый проект.
Установите 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 Ro
 w := 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 := CallWindo!
 wProc(FP
revClientProc,
                                  ClientHandle,
                                  Msg,
                                  wParam,
                                  lParam);
   end;
 end;

В методе формы OnCreate добавьте:

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

   SetWindowLong(ClientHandle,
         &nb
 sp;        GWL_WNDPROC, LongInt(FClientInstance));

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

У Вас получился  MDI-проект с "обоями" в клиентской области MDI формы.


Источник: Дельфи. Вокруг да около.

Комментари от proton (avtograd) (NilSoft)
Такое делаетмя одной строкой.
 brush.bitmap := image1.picture.bitmap;
повесить это надо на onCreate.
и все, больше ни каких изврашений! :)

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Управление звуковым балансом.
    Я чего-то притормаживаю и никак не могу понять: Если при управлении микшером нет отдельного параметра отвечающего за ...
  • Максимальное количество соединений с веб-сервером
    Привет! Может немного странно звучит, но каково максимальное количество соединений клиентов может выдержать веб-сервер, ...
  • Прозрачная форма
    Как сделать прозрачную форму? Я гдето встречал что-то типа: var Form2: TForm2; begin Form2:= TForm2.Create(self); ...
  • Набор закладок в вордовском документе
    Здравствуйте. Ситуация такова: имеется вордовский документ, с которым я работаю через OLE-автоматизацию. Задача: ...
  • Совместное написание игр
    Что Вы думаете о написании совместно какой-нибудь игры. Например, что Вы думаете о 3D шутера? Правда я не профессионал ...
  • что с сайтом KOL
    Больше трех суток не могу зайти ни на bonanzas.rinet.ru, ни xcl.cjb.net. Кажет строчку "2ce0" на пустом экране.
  • Gameport
    Как можно получить доступ у этому порту, иначе как через directX джойстик, просто проблема в том что данные с джойстика ...
У нас большой выбор статей   |x|
DirectX (Игровой SDK) Часть 1-2
Часть 1 (Модель компонентных объектов (СОМ) ,DirectDraw,
Объект IDirectDraw, Пример DDDemo1)
Часть 2 (Коды возврата DirectDraw и исключения Delphi, Переключение
на полноэкранный режим, Пример DDDemo2, Добавление обработчика
исключений приложения)
Новинки книжного рынка   |x|
Паскаль и Дельфи. Самоучитель
Данное пособие представляет собой курс по изучению популярного языка программирования — Паскаль. В нем последовательно излагаются основные принципы структурного и объектно-ориентированного программирования. Наиболее подробно рассматриваются интегрированные среды программирования — Турбо Паскаль и Дельфи. В каждой главе разбираются примеры рабочих программ. Для самопроверки усвоения теоретического материала вы можете воспользоваться вопросами, приведенными в конце каждой главы. Выполнение заданий по разработке приложений поможет сформировать прочные навыки программирования. Книга предназначена для учащихся и студентов общеобразовательных, высших и средних учебных заведений и благодаря наличию большого количества детально рассмотренных примеров, вопросов и заданий может быть использована для самообразования.
Автор: Попов В. Б.
Опрос населения :)
Какую ОС вы используете _в_основном_ при написании програм для Win32
»»» Win2k
»»» Win98
»»» WinXP
»»» WinNT
»»» WinMe
»»» Win95
»»» Ни одну из перечисленных
»»» Я не пишу под Win32
»»» Не знаю
Для души

Хокку дня
О чем пишешь крылышком
На стекле,
Прилетевшая ласточка?

Афоризмы
К сожалению, самая продвинутая из всех прикладных наук, - прикладная.

Фраза дня
Я знаю джиу-джитсу, самбо, дзюдо, айкидо и много дpугих стpашных слов.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Монтане запрещено перевозить в кабине грузовика овец. Единственное исключение - если овцы едут в сопровождении пастуха.
В Литтл Рок в Арканзасе водителям нельзя гудеть в клаксон у мест, где продаются прохладительные напитки и бутерброды.

И на закуску коротенький анекдот
В концертный зал врывается отряд полицейских с пистолетами "наголо". Все в ужасе, пианист (дрожащим голосом):
- В чём дело??
Полицейские:
- Нам сообщили, здесь издеваются над каким-то Бахом...

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=0003

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.mdelphi		 Отписаться
В избранное