在设计状态时,在PageControl控件上右键可以弹出菜单,用菜单的New Page项可以添加TabSheet页,我想知道New Page在PageControl控件里面所对应的方法或事件在哪里?
解决方案 »
- oQuery.SQL.Add('UPDATE t1 SET col'+colnum+'=col'+colnum+aValue);字符串怎么连接,头晕了 ...
- 录音问题。。。
- 关于FLASH播放器的几个问题
- 在From中如何实现消息?在线等
- 如何在SQL里访问不在当前目录下的表?
- 各位大虾,用DELPHI能做出病毒来吗?都说DELPHI功能强大。
- 可能是多线程的问题
- 如何屏蔽ctrl alt del键???
- 往数据表里写记录最标准的语法是什么?
- 如何定制DBgride显示的行数?急!!!!
- 各位师哥师姐,我是县级医院的网管,领导想叫我搞电子病历,给点指导,原则上用Delphi6+Oracle8.0.5(由于买了一套病案管理系统的数据库是
- 十万火急,三层并发数配置
var
i: Integer;
begin
with PageControl1 do
for i := 0 to 9 do
with TTabSheet.Create(Self) do
begin
PageControl := PageControl1;
Pages[i].TabVisible := (i mod 2 = 0);
Caption := 'PageIndex: ' +
IntToStr(Pages[i].PageIndex) + ' TabIndex: ' +
IntToStr(Pages[i].TabIndex);
end;
end;
和mianmenu挨着的哪一个就是了
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, Menus;type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
Add1: TMenuItem;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
procedure Add1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Add1Click(Sender: TObject);
var
i: Integer;
begin
with PageControl1 do
for i := 0 to 9 do
with TTabSheet.Create(Self) do
begin
PageControl := PageControl1;
Pages[i].TabVisible := (i mod 2 = 0);
Caption := 'PageIndex: ' +
IntToStr(Pages[i].PageIndex) + ' TabIndex: ' +
IntToStr(Pages[i].TabIndex);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PageControl1.popupMenu:= PopupMenu1;
end;end.