如何通過代碼在delphi中設置Timage wrapmode？

（使用firemonkey和xe3）。嗨，我創建一個IMG。如何通過代碼在delphi中設置Timage wrapmode？

img := Timage.Create(fsbCanvas); 
    with img do 
    begin 
     Parent:=fsbCanvas; 
     position.X:=frmMainUI.CurrentMouseX; 
     position.y:=frmMainUI.CurrentMouseY; 
     Bitmap.LoadFromFile('1.jpg'); 
     Visible:=true; 
    end;

，現在我想設置其wrapmode到iwStreach。所以我補充一點： Timagewrapmode.iwStreach但我得到一個錯誤，說「聲明預期但表達式」。

任何人都可以幫忙嗎？

來源

2013-02-16 Kobus Vdwalt

許多備受尊敬的人考慮語句是罪惡和有很好的理由。在這種情況下，它會讓你的代碼更難閱讀。 – 2013-02-16 15:54:19

@mikeSutton注意到，這只是爲了問。它不會再發生。 – 2013-02-17 10:56:32

你必須這樣設置圖像WrapMode屬性：

img.WrapMode := TImageWrapMode.iwStretch;

注意，枚舉必須與它的類型名稱完全合格。

這是因爲編譯器指令"$SCOPEDENUMS"是默認情況下在FireMonkey應用。

來源

2013-02-16 09:17:50

這不起作用，除非你創建我的答案中描述的常量。但是，無論如何感謝 – 2013-02-16 10:34:00

@KobusVdwalt，看看我的更新。 – 2013-02-16 11:03:09

感謝您的解釋。你認爲你可以看看我的另一個問題嗎？ http://stackoverflow.com/questions/14875328/how-to-create-an-indefinite-amount-of-images-while-still-being-able-to-set-their – 2013-02-16 11:16:38

如何通過代碼在delphi中設置Timage wrapmode？

回答

相關問題