Скачать: CL | DM;

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c