我有這樣一段代碼:加載GIF爲動態形式
SELDR_WH := FindControl(FindWindow(nil,'PhoneDB Filtering')) as TForm;
if seldr_wh <> nil then
begin
SELDR_WH.ClientHeight := SELDR_WH.ClientHeight + 20;
gif := TGIFImage.Create;
with gif do begin
Parent := SELDR_WH;
Top := SELDR_WH.ClientHeight - 20;
Left := 30;
try
rs := TResourceStream.Create(hInstance, 'ajax-loader', RT_RCDATA);
gif.LoadFromStream(rs);
except on Exception do begin
rs.free;
gif.free;
end;
end
end;
end;
代碼是很明顯的,我想。不解釋...
但是 - 問題是,我不能夠加載這個GIF資源GIF組件 - > EResNotFound ...
問題是的hInstance參數作爲說明這裏:http://www.codeproject.com/Messages/931171/Re-The-difference-between-HWND-and-HINSTANCE.aspx
但是 - 如何加載它?加載失敗的影響是主窗體被設置爲SELDR(SELDR_WH)窗體的子窗體。
任何幫助表示讚賞。謝謝!
也許你無論是在資源名稱或資源類型做了一個錯字,你確定嗎? – Vantomex 2010-10-20 09:55:14
是的。我確定! ;) – 2010-10-20 10:06:02
真的沒有別的,你可以建議只是錯字...? – 2010-10-20 10:59:59