BMP billede som baggrund

øøøøv :(

Kan du ikke bare smide en TImage komponent på din form og gøre den lige så stor som din form. Dit billed loader du gennem egenskaben Picture.

Jepz, det har jeg prøvet, men jeg tænkte på at bruge et eksternt billede,
sådan at man frit kan skifte mellem diverse skins osv.

procedure TForm1.Button1Click(Sender: TObject);
var
bitmap : TBitMap;
begin
  bitmap := TBitmap.Create;
  try
    bitmap.LoadFromFile('c:\sti\billed.bmp');
    Image1.Picture.Assign(bitmap);
  finally
    bitmap.Free;
  end;

end;

brug en Tfilelistbox:

procedure TForm1.FileListBox1Click(Sender: TObject);
var
  FileExt: string[4];
begin
FileExt := AnsiUpperCase(ExtractFileExt(FileListbox1.FileName));
if (FileExt = '.BMP') or (FileExt = '.WMF') or (FileExt ='.JPG') or
(FileExt ='.EMF')or (FileExt = '.GIF')or (FileExt = '.ICO')or (FileExt = '.JPEG') then
begin
Image1.Picture.LoadFromFile(FileListBox1.FileName);
end;
end;

procedure TForm1.FileListBox1Enter(Sender: TObject);
begin
Filelistbox1.Directory:='c:\grafik\bmp';

end;

end.