請問 TImage 在程式執行時如何動態的讀入 TimageList 的圖? 我有使用 http://delphi.ktop.com.tw/topic.php?topic_id=54849 所提到的方法, void __fastcall TForm1::BitBtn1Click(TObject *Sender) { Image1->Picture=NULL; Image2->Picture=NULL; ImageList1->Draw(Image2->Canvas,0,0,x,true); ImageList1->Draw(Image1->Canvas,0,0,x,true); x ; } 不過圖畫出來是黑黑的一塊. 請指教,謝謝.

請問您的 x 是多少 另外您的ImageList1 已經有圖在裡面了嗎 ? ●○○○○○●○○○○○● 竹密不妨水過，山高無礙雲飛

------
●○○○○○●○○○○○●
竹密不妨水過，山高無礙雲飛

Hi zombit,

procedure TForm1.Button1Click(Sender: TObject);
var
  BMP : TBitMap;
  Index : Integer;
begin
  BMP := TBitMap.Create;
  Index := SpinEdit1.Value;
  try
    if ImageList1.GetBitmap(Index,BMP) then
      begin
        Image1.Picture.Bitmap.Assign(BMP);
      end;
  finally
    BMP.Free;
  end;
end;

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

------
Fishman