Einzelnen Beitrag anzeigen

Willie1

Registriert seit: 28. Mai 2008
615 Beiträge
 
Delphi 10.1 Berlin Starter
 
#8

AW: MinimizeName für TForm.Caption

  Alt 21. Dez 2014, 11:28
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.
  Mit Zitat antworten Zitat