請問各位有沒有辦法把form底色改顏色或貼一張完全覆蓋form的圖?

Form.Color 不就是 Form 底色了嗎 ??? 貼完全覆蓋的圖 : procedure TForm1.FormPaint(Sender: TObject); begin Canvas.StretchDraw(Rect(0,0,Width,Height),Image1.Picture.Bitmap); end;

可以將小片圖以拼圖的方式貼滿Form     

procedure BrushBitmapToForm(Sender: Tobject; bmpFilename: string; space: integer = 0);
{功能：指定Form 填滿指定圖形(bmp)
傳入參數：Sender-->Form 名稱
          bmpFileName-->圖檔路徑和名稱
          space-->圖片間是否留有空白
注意：    須於Paint event 中執行
}
var
    x, y: integer;
    Bitmap: TBitmap;
begin
    Bitmap := Tbitmap.Create;
    Bitmap.LoadFromFile(bmpFilename);
    if sender is TForm then
    begin
        y := 0;
        while y < (sender as Tform).Height do
        begin
            X := 0;
            while X < (sender as Tform).Width do
            begin
                (sender as Tform).canvas.Draw(X, Y, Bitmap);                    X := X + Bitmap.Width + space;
            end;
            Y := Y + Bitmap.Height + space;
        end;
        bitmap.Free;
    end;
end;    

發表人 - ddy 於 2003/05/08 11:39:57

引言: 可以將小片圖以拼圖的方式貼滿Form

procedure BrushBitmapToForm(Sender: Tobject; bmpFilename: string; space: integer = 0);
{功能：指定Form 填滿指定圖形(bmp)
傳入參數：Sender-->Form 名稱
          bmpFileName-->圖檔路徑和名稱
          space-->圖片間是否留有空白
注意：    須於Paint event 中執行
}
var
    x, y: integer;
    Bitmap: TBitmap;
begin
    Bitmap := Tbitmap.Create;
    Bitmap.LoadFromFile(bmpFilename);
    if sender is TForm then
    begin
        y := 0;
        while y < (sender as Tform).Height do
        begin
            X := 0;
            while X < (sender as Tform).Width do
            begin
                (sender as Tform).canvas.Draw(X, Y, Bitmap);                    X := X + Bitmap.Width + space;
            end;
            Y := Y + Bitmap.Height + space;
        end;
        bitmap.Free;
    end;
end;    

發表人 - ddy 於 2003/05/08 11:39:57

拼圖??那可不可以寫一個來玩玩～～ < src="http://simg3.pchome.com.tw/simage/thumbnail/3628/home.kimo.com.tw%A3%AFangelbeach2002%A3%AFqoo%A3%AFangel_qoo.gif">發表是最好的記憶!

bmpFilename 傳入 ddy 的青蛙圖檔名，就會出現一個青蛙陣了

//直接在表單上加入背景圖 unit Unit1; interface uses Windows, SysUtils, Classes, Graphics, Forms; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } backgroundImage : TBitmap; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin backgroundImage := TBitmap.Create; backgroundImage.LoadFromFile(ExtractFilePath(Application.ExeName) 'background.bmp'); end; procedure TForm1.FormPaint(Sender: TObject); begin Canvas.Draw( 0, 0, backgroundImage ); end; procedure TForm1.FormDestroy(Sender: TObject); begin backgroundImage.Free; end; end. 發表是最好的記憶!