TImage в качестве Background, как убрать мерцание?

← →
zam (2002-08-26 00:23) [0]

Задача - сделать фоновое изображение для приложения(основной формы).
Беру TImage, растягиваю на всю форму, устанавливаю туда нужный background.
Все конечно работает, но очень не красиво получается при загрузки формы. Сначала загружается и показывается сама форма без фонового рисунка, а через 1-2 сек сам фон.
Не красиво однако.
Как показывать форму с уже отрисованным background"ом?
Или если есть, подскажите другие метобы создания форм с background"ом.

← →
Ученик (2002-08-26 00:30) [1]

procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBKGND;

procedure TForm1.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
Message.Result := 1
end;

← →
zam (2002-08-26 00:54) [2]

Да, сама форма не рисуется, но контролы то перерисовываются, и все равно при загрузке сначала появляются контролы, потом уже фоновый рисунок.

← →
Ученик (2002-08-26 01:35) [3]

А так:

procedure TForm1.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
Canvas.Draw(0, 0, Image1.Picture.Graphic);
Message.Result := 1
end;

← →
Ученик (2002-08-26 01:40) [4]

Забыл добавить Image1.Visible=False

← →
zam (2002-08-26 02:03) [5]

Спасибо, все понял все работает.

TImage в качестве Background, как убрать мерцание? Найти похожие ветки