我的程序有23个窗体, 我在FORM11上放一个seskinengine, 然后所有其他窗体都用这个来seskinengine!! 现在的问题是: 能否在主窗口之前让FORM11运行, 并且程序运行操作正常, 如果把seskinengine放在主窗口上又引起循环引用! 怎么解决!
解决方案 »
- 简单的打印格式,高手来看一下,fastreport2.5,
- TMemoryStream能作为函数对象传值吗?
- 如何动态在FastReport上创建Memo?
- idftp控件中的一个问题
- 用同一TAdoQuery执行SQL语句(掉存储过程),报 占线 错,是为什么?
- 请问FastReport中表单合计怎么做?
- 怎样把Application.MessageBox('内容','标题',mb_yesnocancel+mb_iconquestion) 中的三个按钮对应三个事件啊。
- Edit的Ctl3D为False时很好看,想问DateTimePicker有没有类似的功能?
- 怎样让一个TControl等于一个onClick事件中的Sender ?
- 庆祝坏积分达到1998
- 有关ClientDataset
- 请教高手: 用winexec执行NET SEND 编聊天程序的问题
引用放到interface下面。
var form11 : Tform11
Function CreateFirstFrm:boolean;
..................
Function CreateFirstFrm:boolean;
begin
result := false;
form11 := Tform11.create(Application);
form11.showmodal;
if modalresult = mrok then
result:=True;
end;
procecdure Tform11.buttonOKclick(sender:Tobject);
begin
//换肤操作
if 操作成功 then
modalresult = mrok;
end;工程文件中:
.......................................
if CreateFirstFrm then
application.createForm(Tmainfrm,mainfrm);
........................................2。你的23个窗体都是单独的啊?
你的换肤处理要对每个form分别操作。
如果是继承的窗体,只要修改父窗体的皮肤就可以了~不知道seskinengine有没有全部修改的功能。没有用过。