怎样把vclskin之类控件的皮肤文件做到DLL中,然后又怎么调用?(50分)

  • 主题发起人 主题发起人 mingm13
  • 开始时间 开始时间
M

mingm13

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样把vclskin之类控件的皮肤文件做到DLL中,然后又怎么调用?
 
SkinData1.skinstore点击装入文件即可。
 
使用时active:=true;
 
做到DLL中?呵呵,你放到资源中,然后在主程序中加载就行啊!
 
东兰梦舞:朋友我知道用资源文件.但是那个资源RC文件怎么写(一般的象图片,wav之类的我也会做),然后又怎么调用?
 
我的方法不行,这样什么都不用做。
 
请问高手都到哪儿去了?
难道没有人会做吗?
 
老弟,说话注意些!别人没有义务回答你的问题!

//skin.rc
s1 skin itunes.skn

//skin.dpr
library skin;

{$R skin.res}

begin
end.

//ui.dpr
program ui;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

//Unit.pas
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WinSkinData;

type
TForm1 = class(TForm)
SkinData1: TSkinData;
procedure FormCreate(Sender: TObject);
private
public
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
h: THandle;
rs: TResourceStream;
begin
h := LoadLibrary('skin.dll');
rs := TResourceStream.Create(h, 's1', 'skin');
SkinData1.LoadFromStream(rs);
rs.Free;
FreeLibrary(h);
SkinData1.Active := True;
end;

end.
 
都消消火~~~,学习
 
我先前的留言可能让很多朋友听来不舒服!不过我真的是比较急,在此赔礼道歉!
不过真的是希望不知道的朋友不要乱讲.谢谢
谢谢所有热心的朋友!@
 
接受答案了.
 
后退
顶部