如何在PageControl1下面的TabSheet1加入一个子窗口。 这个子窗口的实现就像按一个BUTTON键的时候弹出一个子窗口一样实现 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit tttmp;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TMainForm = class(TForm) Edit1: TEdit; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var MainForm: TMainForm;implementation{$R *.dfm}procedure TMainForm.Button1Click(Sender: TObject);begin with TMainForm.Create(Application) do begin Parent := Self.TabSheet1; BorderStyle := bsNone; Align := alClient; Visible := True; end; end;end. 如何让我的窗体程序在什么环境下都在最上层。 帮帮我,在线等待! 是不是MDI类型的主form中不能放Timagelist啊? 再求助~~~ 怎么实现信息在局域网中的广播???? 在已经运行的DLL中如何得到运行它的EXE中的信息? 请问为什么在没有DELPHI环境的机器上,用regsvr32不能成功的把F1Book的OCX注册到机子上 如何判断一个文件正在被其他程序写入. 我是菜鸟,请教:怎样自己写inf文件及它的格式要求,并怎样读取数据?望大虾不吝执教! 当两个程序同时访问一个表,如何防止其中一个程序锁住表 如何 判断窗体上的某个控件是Tedit 求创建,解析XML文档的例子
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;type
TMainForm = class(TForm)
Edit1: TEdit;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
MainForm: TMainForm;implementation{$R *.dfm}procedure TMainForm.Button1Click(Sender: TObject);
begin
with TMainForm.Create(Application) do
begin
Parent := Self.TabSheet1;
BorderStyle := bsNone;
Align := alClient;
Visible := True;
end;
end;end.