Hallo Bernau, ich habe bei mir ein einfaches TTabHintWindow drin. Sieht dann so aus:
Delphi-Quellcode:
TTabHintWindow=class(THintWindow) // Stellt auch Tabs mit dar
public
function CalcHintRect(MaxWidth: Integer; const AHint: string;AData: Pointer): TRect; override;
procedure Paint; override;
end;
Delphi-Quellcode:
function TTabHintWindow.CalcHintRect(MaxWidth: Integer;
const AHint: string; AData: Pointer): TRect;
begin
Result := Rect(0, 0, MaxWidth, 0);
DrawText(Canvas.Handle, PChar(AHint), -1, Result, DT_CALCRECT or DT_LEFT or DT_EXPANDTABS or
DT_WORDBREAK or DT_NOPREFIX or DrawTextBiDiModeFlagsReadingOnly);
Inc(Result.Right, 6);
Inc(Result.Bottom, 2);
end;
procedure TTabHintWindow.Paint;
var
R: TRect;
begin
R := ClientRect;
Inc(R.Left, 2);
Inc(R.Top, 2);
Canvas.Font.Color := clInfoText;
DrawText(Canvas.Handle, PChar(Caption), -1, R, DT_LEFT or DT_NOPREFIX or DT_EXPANDTABS or
DT_WORDBREAK or DrawTextBiDiModeFlagsReadingOnly);
end;
Delphi-Quellcode:
initialization
HintWindowClass:=TTabHintWindow;// Tabulatoren werden unterstützt
end.
Ist schon recht alt, daher kann ich nicht sagen, wo das her ist.
Gruß Bernd