segunda-feira, 14 de setembro de 2009

Para colocar um back ground nos forms

{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. }

Nenhum comentário:

Postar um comentário