vckskin使用问题**

alang

我对vclskin没有研究，估计这段代码应该放在标准风格主窗体上

lili7912

在标准风格主窗体上我们系统的Form是怎么放到Panel上的呢。你能告诉我吗？
我看了你们代码没看明白功能Form是怎么放到panel上的。不知道如何下手。

alang

procedure TFuncContainer.SetFunc(Value: TFunc);
begin
  FFunc := Value;

  if FFunc <> nil then
  begin
    FFunc.MainForm.Parent := Self;
    FFunc.MainForm.BorderStyle := TFormBorderStyle.bsNone;
    FFunc.MainForm.Align := TAlign.alClient;
  end;
end;

lili7912

谢谢!我试一下

lili7912

不行啊!找不到父类，还是不能生效啊
FFunc.MainForm.Parent := Self中的self是容器吗？

lili7912

在系统中TDocView是不是不能用VclSkin换肤啊!TDataGrid类可以换，TDocView和TDataGrid的基类是一样的吗？不一样的话TDocView的基类是什么呢？

lixy

是容器

lili7912

self是容器的话.可是这个容器具体是什么类的容器呢?是和panel类是一样的吗?不是的话是什么类的呢?

alang

楼主要看看vclskin文档，不能只看例子，比如这个self，我认为应该是被贴的Form，而不是容器，而平台上控件的嵌套比较多，你就不能用Self了，而是应该用标准风格主窗体的实例了

我没有看vclskin的文档，只是根据例子猜测的，不一定对

lili7912

FFunc := Value;

  if FFunc <> nil then
  begin
    FFunc.MainForm.Parent := Self;
    FFunc.MainForm.BorderStyle := TFormBorderStyle.bsNone;
    FFunc.MainForm.Align := TAlign.alClient;
    if skindata1.active then
      skindata1.AddNestForm(FStandForm,FFunc.MainForm.);
//FStandForm是TSTANDARDSTYLEMAINFORM的实例
  end;
运行还是不行。