跟据类名动态创建Frame窗体

时间:2010-03-05 18:49:33  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:="5" width="99%" bgcolor="#e8ffe8" border="1">initializationRegisterClass(TFromFrame);initializationRegisterClass(TlevelFrame);二、在调用者的PAS中,引用它们如:
  正文:假设有如下Frame窗体 :  FromFrame,levelFrame
一、如果需要根据类名动态生成它们,先在各frame窗体的pas中注册它们各自的类。
如下:


initialization
RegisterClass(TFromFrame);

initialization
RegisterClass(TlevelFrame);

二、在调用者的PAS中,引用它们

如:


uses ufromframe,ulevelframe;

三、取得类名

四、根据类名动态生成Frame窗体


procedure lp_ShowFrame(FrameName:String);
type
TFrameClass = Class of TFrame;
var
FrameClass:TFrameClass;
FFrame:TFrame;
begin
  if FFrame <> nil then FFrame:=nil;
  
  FrameClass := TFrameClass(FindClass('T'+FrameName));
  FFrame := FrameClass.Create(self);
  
  with FFrame do begin
      Parent := tab_detail;
      Visible := true;
      Top := 40;
      Font.Name := '宋体';
      Font.Size := 9;
    end;
  end;

调用方法:


lp_ShowFrame(FrameName);

跟据类名动态创建Frame窗体》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13063.html


关键字:

关于《跟据类名动态创建Frame窗体》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td