就是把很多小圖合併成一張大圖 類似影像處理工具的功能 但是去除人工的行為，以程式來處理 請問 Delphi 中有這種 merge 函數嗎？ 若無，剛想利用 keyboard 的 PrintScreen 熱鍵功能 但是無法從剪貼簿中抓資料 請問這邊又該怎麼處理呢？ 感謝

Hi:    

procedure TForm1.Button5Click(Sender: TObject);
var
    JPG : TJPEGImage;
    BMP : TBitMap;
    I : Integer;
begin
    BMP := TBitMap.Create;
    BMP.Width := 240 * 4;
    BMP.Height := 180 * 2;
    FOR I := 1 TO 8 DO
        BEGIN
            JPG := TJPEGImage.Create;
            TRY
                JPG.LoadFromFile('D:\Photograph0'   IntToStr(I)   '.jpg');
                BMP.Canvas.Draw(Trunc((I - 1) / 2) * 240,((I - 1) MOD 2) * 180,JPG);
            FINALLY
                JPG.Free;
            END;
        END;
    JPG := TJPEGImage.Create;
    JPG.CompressionQuality := 90;
    JPG.Assign(BMP);
    JPG.SaveToFile('D:\Result.jpg');
    BMP.SaveToFile('D:\Result.bmp');
    JPG.Free;
    BMP.Free;
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

引言:

  BMP.Canvas.Draw(Trunc((I - 1) / 2) * 240,((I - 1) MOD 2) * 180,JPG);        JPG.CompressionQuality := 90;
    JPG.Assign(BMP);

真是神來之筆 ^^ 核心就是在這邊阿（小弟自己try不出來的地方） 另外能否再請問：關於壓縮 CompressionQuality 只能再存檔時壓縮；那麼請問是否有在讀取時就可以壓縮的method呢？ 因為可能會遇到圖形很多如百來張、size也許很大如BMP 這樣拼圖時，可能會產生範圍的問題....

Hi:    調整 JPG 大小請參考 http://delphi.ktop.com.tw/topic.php?topic_id=27704 加油！！ -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman