关于往别的程序的pagecontrol里增加tabsheet的问题，感兴趣的请留步?(50分)

jacklin · 1999-08-22

相信大家对许多显卡驱动程序有印象，安装完后在控制面板里的"显示"里会出现自己的Tabsheet，这在delphi里如何实现?

barton · 1999-08-23

我想你必须有把握对"别的程序"中的结构很清楚吧,如果清楚就不难了.不过显 卡设置中的界面是通过API实现的,那有一个通用的接口.

menxin · 1999-08-23

我一直记得huizhang说的'可以用createwindow api 和消息传递给其它windows程 序加wincontrl类控件'试了几次没有实现。 你说的加入显示中和此问题关系不是太大吧，它一定不是用这方法，用的是windows 中提供的接口，不是注册表就是ini。

jacklin · 1999-08-24

barton兄，假设"别的程序"是自己写的程序，那当然就清楚程序结构了。那么如何 实现我所说的要求呢？ 另外，您老兄能否说一下显卡设置中通用的API接口，俺对这很感兴趣！ *这个问题50分实在太少了，大家请原谅：jacklin刚刚白手起家，家底只有二百来 分，实在无法支付巨额赏金。

barton · 1999-08-24

其实我也曾想过这个问题.我把我应用程序中的所有设置集中到一起想做到 控制面板中,如果直接用我想是可以的.只是最近比较忙没有试. 这个问题可以反过来想:你的应用程序中的Form被一个PageControl调用可能 就比较好想了,不过这可能需要将Form做到DLL或COM中.当然,作Form调用或 作TabSheet调用都是调用这个DLL或COM.显示卡的设置也应该是这个思想, ...当然这只是猜测

过两天我发个DEMO你看看.

barton · 1999-08-26

这个问题我已经搞定。^_^ 条件：1.要添加的Form(权且叫子窗体)需按指定格式做：所有的   内容都用若干个GroupBox容器装上(当然也可以改用Panel或其   它的容器)，按钮加上1-4的Tag值(当然你也可以自己改成其它   数)。       2.做一个空的Form(权且叫父窗体)，放上一个PageControl   (Left和Top一定要设置好，其它属性随便)，命名为pcGlobal。 其余的你看以下代码： type   TSubForm = class(TObject)   private     FTabSheet: TTabSheet;     FActive: Boolean;     FBoxes, FButtons: TList;     FForm: TForm;     FPageControl: TPageCOntrol;     procedure SetActive(Value: Boolean);   protected   public     constructor Create(AForm: TForm; APageControl: TPageControl);     destructor Destroy; override;     property Active: Boolean read FActive write SetActive;   end;   TfmOption = class(TForm)     pcGlobal: TPageControl;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure FormActivate(Sender: TObject);     procedure pcGlobalChange(Sender: TObject);   private     { Private declarations }     Forms: TList;     FIndex: Integer;     procedure SetIndex(Value: Integer);   public     { Public declarations }     procedure AddForm(AForm: TForm);     property FormIndex: Integer read FIndex write SetIndex;   end; var   fmOption: TfmOption; function TestOption: Boolean; implementation {$R *.DFM} function TestOption: Boolean; begin   fmOption := TfmOption.Create(nil);   fmSub1 := TfmSub1.Create(nil);  //创建第一个子窗体实例   fmSub2 := TfmSub2.Create(nil);  //创建第二个子窗体实例   ...   with fmOption do   try     AddForm(fmSub1);  //加入第一个窗体的实例     AddForm(fmSub2);  //加入第一个窗体的实例     ...     Result := ShowModal = mrOK;   finally     Free;     fmSub1.Free;      //如果不是本过程创建就不必释放     fmSub2.Free;      //如果不是本过程创建就不必释放     ...   end; end; // TSubForm 对象 constructor TSubForm.Create(AForm: TForm; APageControl: TPageControl); var   I, W, H: Integer; begin   FForm := AForm;   FPageControl := APageControl;   FBoxes := TList.Create;   FButtons := TList.Create;   FTabSheet := TTabSheet.Create(FPageControl.Parent);   FTabSheet.PageControl := FPageControl;   FTabSheet.Caption := AForm.Caption;   for I := 0 to AForm.ComponentCount - 1 do begin     if AForm.Components is TGroupBox then begin       //当然这里暂时只处理TGroupBox       TGroupBox(AForm.Components).Parent := FTabSheet;       FBoxes.Add(AForm.Components);       W := TGroupBox(AForm.Components).Left         + TGroupBox(AForm.Components).Width + 14;       H := TGroupBox(AForm.Components).Top         + TGroupBox(AForm.Components).Height + 36;       if FPageControl.Height < H then begin         FPageControl.Height := H;         FPageControl.Parent.Height := H + 75;       end;       if FPageControl.Width  < W then begin         FPageControl.Width  := W;         FPageControl.Parent.Width  := W + 21;       end;     end else if AForm.Components is TButton then     //按钮在这里处理     if AForm.Components.Tag > 0 then     with TButton(AForm.Components) do begin       Parent := FPageControl.Parent;       Visible := False;       FButtons.Add(AForm.Components);     end;   end; end; destructor TSubForm.Destroy; var   I: Integer; begin   //啊哈!借东西要还,要不然下次没得借的说!   for I := 0 to FButtons.Count - 1 do     TWinControl(FButtons).Parent := FForm;   for I := 0 to FBoxes.Count - 1 do     TGroupBox(FBoxes).Parent := FForm;   FBoxes.Free;   FButtons.Free;   inherited Destroy; end; procedure TSubForm.SetActive(Value: Boolean); var   I: Integer; begin   //根据Tag的指引,在最适当的地方显示按钮   if FActive = Value then Exit;   FActive := Value;   for I := 0 to FButtons.Count - 1 do begin     case TButton(FButtons).Tag of       1: TButton(FButtons).Left := FPageControl.Width - 305;       2: TButton(FButtons).Left := FPageControl.Width - 201;       3: TButton(FButtons).Left := FPageControl.Width - 97;       4: TButton(FButtons).Left := FPageControl.Width - 409;     end;     TButton(FButtons).Top := FPageControl.Height + 14;     TButton(FButtons).Visible := FActive;   end; end; //TfmOption 对象 procedure TfmOption.SetIndex(Value: Integer); begin   //激活相应的"虚窗体"   if FIndex = Value then Exit;   if FIndex >= 0 then TSubForm(Forms[FIndex]).Active := False;   FIndex := Value;   TSubForm(Forms[FIndex]).Active := True; end; procedure TfmOption.AddForm(AForm: TForm); var   ASubForm: TSubForm; begin   ASubForm := TSubForm.Create(AForm, pcGlobal);   Forms.Add(ASubForm);   Position := poScreenCenter; end; procedure TfmOption.FormCreate(Sender: TObject); begin   Forms := TList.Create;   FIndex := - 1; end; procedure TfmOption.FormDestroy(Sender: TObject); begin   while Forms.Count > 0 do begin     TSubForm(Forms[Forms.Count - 1]).Free;     Forms.Delete(Forms.Count - 1);   end;   Forms.Free; end; procedure TfmOption.FormActivate(Sender: TObject); begin   pcGlobal.ActivePage := pcGlobal.Pages[0];   SetIndex(0); end; procedure TfmOption.pcGlobalChange(Sender: TObject); begin   FormIndex := pcGlobal.ActivePage.TabIndex; end; end.

rockboy · 1999-08-28

barton: 能不能再讲讲使用的方法,比如我想把上面的Form加到"显示"属性页中, 该如何操作.(我想还必须在注册表中加些东西吧?)

曹晓钢 · 1999-08-28

barton要实现的效果叫做"属性页". windows提供的接口应该是COM的接口吧. 自己实现IPropertyPage接口就可以了. 在MSDN里查property page关键字吧.

barton · 1999-08-29

控制别的程序可能不好玩.用COM可能不行.因为显示属性页属于系统控制的全 局实例,而COM只是一个接口.如果通过接口实现只可能定义一个特殊的消息来 驱动.我想你的思路可能有问题:不是显示卡驱动程序调用系统的FORM,而是系 统程序调用显示卡驱动程序的FORM?

jacklin · 1999-09-04

接受答案了.

关于往别的程序的pagecontrol里增加tabsheet的问题，感兴趣的请留步?(50分)

jacklin

Unregistered / Unconfirmed

barton

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

jacklin

Unregistered / Unconfirmed

barton

Unregistered / Unconfirmed

barton

Unregistered / Unconfirmed

rockboy

Unregistered / Unconfirmed

曹晓钢

Unregistered / Unconfirmed

barton

Unregistered / Unconfirmed

jacklin

Unregistered / Unconfirmed

Similar threads