...einen langen Dateinamen anzeigen wie c:...pfaddatei.txt?

{
 Set the label autosize property to false and set the property width
 to the max. displayed length
}
 

uses
  FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Opendialog1.Execute then
    label1.Caption := MinimizeName(Opendialog1.FileName,
                                   label1.Canvas, label1.Width);
end;

printed from
www.swissdelphicenter.ch
developers knowledge base