解决方案 »
- 求一个动态生成UDPServer并且UDPRead能够监听的例子。
- Delphi 怎么调用VFP封装的DLL?
- 重载 CNDrawItem(var Message: TWMDrawItem); 改变按钮的形状
- 一个关于在delphi7里面的数据类型的问题!!!!
- sql explorer中的enter sql为何不能输入语句了?
- 请问如何定义每一页打印的数据条数?
- 高兴,放分!!!!!!!!!!!!进来的前10人有分。
- api函数
- 如何在dbgrid中实现多行表头?
- delphi 用Tchart画的柱状图怎么导出到Excel? 不要保存为图片在复制到excel
- Delphi7怎么写dll函数?
- delphi转C#
begin
if rzpagecontrol1.ActivePage=TabSheet1 then
ShowMessage('1'); if rzpagecontrol1.ActivePage=TabSheet2 then
rzpagecontrol1.ActivePage:=TabSheet1; if rzpagecontrol1.ActivePage=TabSheet3 then
rzpagecontrol1.ActivePage:=TabSheet1;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
RzPageControl1.CloseActiveTab;
ShowMessage(IntToStr(RzPageControl1.ActivePageIndex)+'_'+RzPageControl1.ActivePage.Caption); {关闭页面后的当前激活页面索引和名称}
end;procedure TForm1.RzPageControl1Close(Sender: TObject;
var AllowClose: Boolean);
begin
AllowClose:=True;
ShowMessage(IntToStr(RzPageControl1.ActivePageIndex)+'_'+RzPageControl1.ActivePage.Caption);{关闭的当前激活页面的索引和名称}
end;
其实,最好就是无标签的,切换由程序进行——win31页里的Tnotebook就是这样
procedure TForm1.RzPageControl1TabClick(Sender: TObject);
begin
{强制激活第一个页面}
if rzpagecontrol1.ActivePage=TabSheet1 then
rzpagecontrol1.ActivePage:=TabSheet1; if rzpagecontrol1.ActivePage=TabSheet2 then
rzpagecontrol1.ActivePage:=TabSheet1; if rzpagecontrol1.ActivePage=TabSheet3 then
rzpagecontrol1.ActivePage:=TabSheet1;
end;