Einfach auf den Canvas der Progressbar schreiben:
Delphi-Quellcode:
procedure foo(Progressbar: TProgressbar;
const Text:
String);
var
dc: HDC;
rect: TRect;
begin
dc := GetWindowDC(Progressbar.Handle);
GetClientRect(Progressbar.Handle, rect);
SetBkMode(
dc, TRANSPARENT);
DrawText(
dc, PChar(Text), length(Text), rect, DT_SINGLELINE
or DT_VCENTER
or DT_CENTER);
InvalidateRect(Progressbar.Handle, @rect, True);
end;
Man müsste das natürlich noch verfeinern, damit er eine andere Farbe für die Schrift nimmt, wenn der balken unter dem Text liegt. Aber etwas kannst du ja auch selber machen.
