procedure TForm1.PageControl1Change(Sender: TObject);
begin
PageControl1.Pages[pageControl1.ActivePageIndex].Caption := 'www' ;
end;
其他的看你的了
begin
PageControl1.Pages[pageControl1.ActivePageIndex].Caption := 'www' ;
end;
其他的看你的了
解决方案 »
- select sum(金额) 的问题
- delphi 2007 安装问题,十万火急
- 有关时间日期查询。在线等。。。。急。。。。
- delphi8还支持LINUX下的开发吗?
- delphi的前景到底如何?我到底学delphi还是c#?十万火急请教各位兄弟!(我现在用java,jsp,asp,主要写b/s程序,我想充实自己学学c/s编程)
- 关于主从表设置.怎么会出现这种错误?大家来看一下
- 学习midas有用吗?
- 有没有扫描仪配带 ,将扫描的文字转化为文本的软件,什么品牌,价位多少?
- 我在form 中 的onpaint()事件中画了一条事件,为什么我一最小化程序就没有了
- 给大家报告一个好消息啦!!!!
- 关于控件释放的问题
- 学术问题
在OnDrawTab事件中写代码处理。
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
with TabControl1.Canvas do
begin
FillRect(Rect);
if Active then
begin
Font.Color := clRed;
Font.Style := [fsBold, fsItalic];
end else
begin
Font.Color := clBlack;
Font.Style := [];
end;
TextOut(Rect.Left + 6, Rect.Top + 4, TabControl1.Tabs[TabIndex]);
end;
end;
tabindex: integer; const rect: trect; active: boolean);
begin
with tabcontrol1.canvas do
begin
fillrect(rect);
if active then
begin
font.color := clred;//可选择
font.style := [fsbold, fsitalic];//可选择
end else
begin
font.color := clblack;//可选择
font.style := [];//可选择
end;
textout(rect.left + 4, rect.top +2, tabcontrol1.tabs[tabindex]);
end;
end;
还可在上面加图标的