如何在TTabSet的Tab上自画出关闭按钮 本帖最后由 ddqqyy 于 2009-09-15 20:31:00 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 当TTabSet的style属性为tsOwnerDraw时,在OnDrawTab事件句柄中就要负责自画。我的问题是,如何画出指定的按钮? PageControl组件procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);var w:Integer;begin w := Canvas.TextWidth('X'); PageControl1.Canvas.TextOut(Rect.Right - 2*w,rect.Top+2,'X');end; 求助:delphi移动组件的时候没有对齐线了?怎回事? delphi dbgrid 改变整行颜色 (是我朋友的帮忙呀)如何有个网页呀~~ 100分急求救:怎样在表1的一个记录中“所在部门“字段中用下拉菜单显示表兄弟的“部门名称“中的整个字段的 treeview+access 小问题 急!急!!急!!!怎样将query1中的数据添加到table中,在线等待! 怎样取出汉字的点阵信息... 一个关于SercverSocket中的多线程问题 关联表语句问题。 程序中如何控制把dbgrid控件中列的宽度自动适应实际长度, 关于D7和D2010 检测鼠标一分钟不动,鼠标自动划一个圆圈
当TTabSet的style属性为tsOwnerDraw时,在OnDrawTab事件句柄中就要负责自画。我的问题是,如何画出指定的按钮?
PageControl组件
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
w:Integer;
begin
w := Canvas.TextWidth('X');
PageControl1.Canvas.TextOut(Rect.Right - 2*w,rect.Top+2,'X');
end;