打开对话框，选择某个*.SKN文件，来更换皮肤，程序如下，不知为何出错 procedure TForm1.N2Click(Sender: TObject); begin OpenDialog1.Execute; SkinData1.SkinStore :=Extractfilename(OpenDialog1.FileName); SkinData1.Active:=true; end;

把第二行改成如下試試:

procedure TForm1.N2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    SkinData1.SkinFile := ExtractFileName(OpenDialog1.FileName);
    SkinData1.Active := True;
  end;
end;    TSkinStore 的用法可在 design-time 時設定好 Store 屬性
在 runtime 時便可用 SkinData1.LoadFromCollection(SkinSotre1, 0); 的方式更換 skin(0 表 index)

-- 分擔可以輕省, 分享帶來喜樂! 發表人 - hagar 於 2005/04/05 15:02:47

谢谢Hagar回复，问题已解决。