MinimizeName für TForm.Caption

[Sir Rufo]

Und das hier hilft nicht?

http://delphi.about.com/library/rtl/...nimizeName.htm

Du benötigst zwingend den Canvas, wo du den verkürzten Dateinamen zeichnen möchtest. Denn abhängig von dem Font, Schriftgröße, etc. etc. kann doch erst die resultierenden Länge eines jeden Zeichens ermittelt werden. Einfach nur so mal eben ermitteln geht nicht, denn wie soll es ohne die Information ermittelt werden.

[Willie1]

Hallo Rufo,
die Lösung ist ganz einfach:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  sPfad: string;
begin
  sPfad:='C:\Windows\Programme\XYZABC\12345\Hinweis.exe';
  self.Caption:=MinimizeName(sPfad,Form1.Canvas,200);
end;

Dein Hinweis auf Canvas und das Beispiel haben weiter geholfen. Danke!
Willie.

[Luckie]

Aber ich glaube er meint die Caption von der Form. Und kein Label auf der Form.

[Bjoerk]

Genau. Self.Canvas.Font <> lfCaptionFont.