Фон позади элементов

[serega6531]

Я пишу приложение с графикой на чистом WinAPI и мне нужно рисовать фон окна. Я делаю это так:

procedure DrawBG;
var
  Bitmap: TBitmap;
  DC: HDC;
  Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;
  DC := GetWindowDC(wnd0);
  Canvas.Handle := DC;
  Bitmap := TBitmap.Create();
  Bitmap.PixelFormat := pf24bit;
  Bitmap.LoadFromResourceName(instance, 'BACKGROUND');
  Canvas.Draw(0, 0, Bitmap);
  Bitmap.Free;
  ReleaseDC(wnd0, DC);
  Canvas.Free;
end;

Но рисунок перекрывает элементы управления (кнопки, edit'ы), а мне нужно, чтобы они были поверх фона. Как это сделать? Прозрачность в нужных местах не подходит, т.к. некрасиво.

[waleri]

WS_CLIPCHILDREN

[serega6531]

Это в свойства чего?

[serega6531]

Не помогло. Окно сейчас создаётся так:

wnd := CreateWindowEx($00000100, WND_CLASS_NAME0, 'Title', WS_VISIBLE or WS_SYSMENU or WS_MINIMIZEBOX or WS_CLIPCHILDREN, 100, 200, 510, 368, 0, 0, instance, nil);

Элементы создаются в WM_CREATE, DrawBG выполняется после создания окна.

[waleri]

Виноват, не вгляделся в код.
Рисуйте фон из WM_ERASEBKGND или из WM_PAINT - в обоих случаях система предоставит HDC, в котором child окна "вырезаны"

[ИринаЕ]

Нужен срочно программист 1 С на постоянную работу в штат компании 1 С 8.2 комплексная, компания занимается торговлей складской техникой.
кто заинтересовался Invester72@mail.ru

[serega6531]

В WM_PAINT пробовал, не работает. Сейчас попробую в ERASEBKGND.

[serega6531]

Тоже нет. При наведении на какой-то элемент перестают быть видны остальные. Очень странно.

[waleri]

Так надо не этим кодом рисовать а получать HDC от системы. Уж не знаю как это с TCanvas увязано.

[serega6531]

Как тогда рисовать?