Buscar

Para colocar um back ground nos forms

Código

{Coloque um TImage no seu formulário, escolha uma Picture e deixe a propriedade Visible = False. Depois, no evento OnPaint do Form, use o seguinte código:}

for i:= 0 to Round(Width/Image1.Width do
for j := 0 to Round(Height/Image1.Height) do
Canvas.Draw(i*Image1.Width,j*Image1.Height,Image1.Picture.Graphic); {Caso utilize um BitMap, pode substituir o Image1.Picture.graphic por Image1.BitMap. }

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 23/06/03
Por: Felipe Monteiro
Visualizada: 1916 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009