遇到一个问题
设置了PageControl的hint为page
设置了其中TabSheet1的hint为sheet1
当鼠标移动到TabSheet1的标签头上提示信息为page,而不是sheet1,只有移到TabSheet1中才能显示sheet1,怎么做才能让鼠标移到标签页头的时候显示的是sheet1,而不是page另外当设置它的tabposition为"left“后,如何让caption为横向的,而不是竖的
设置了PageControl的hint为page
设置了其中TabSheet1的hint为sheet1
当鼠标移动到TabSheet1的标签头上提示信息为page,而不是sheet1,只有移到TabSheet1中才能显示sheet1,怎么做才能让鼠标移到标签页头的时候显示的是sheet1,而不是page另外当设置它的tabposition为"left“后,如何让caption为横向的,而不是竖的
这个得自己去改的 DrawTab
procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
with PageControl1 do Hint:= Pages[IndexOfTabAt(x,y)].Hint;
end;
procedure TForm1.ApplicationEvents1ShowHint(var HintStr: string;
var CanShow: Boolean; var HintInfo: THintInfo);
begin
if (HintInfo.HintControl = PageControl1) then
begin
with PageControl1 do
begin
try
HintStr:= Pages[IndexOfTabAt(HintInfo.CursorPos.X,HintInfo.CursorPos.Y)].Hint;
except
CanShow:=False;
end;
end;
HintInfo.ReshowTimeout:=1000;
end;
end;
procedure TMainForm.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
//setbkcolor(Control.Canvas.Handle,clYellow);
Control.Canvas.Brush.Color := clYellow;
control.Canvas.Rectangle(control.Canvas.ClipRect);
Control.Canvas.Font.Color := clRed;
Control.Canvas.TextOut(2,20,'中');
end;