Wie einen Text in TEdit linksbündig halten?

[newIndy]

Vorschlag:

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
var FileName:String;
    dummyLabel:TLabel;
begin
     if OpenPictureDialog1.Execute then
     begin
          FileName := OpenPictureDialog1.FileName;
          try
             dummyLabel := TLabel.Create(Application);
             dummyLabel.Parent := MainForm;
             dummyLabel.Width := DeinEdit.Width;
             dummyLabel.Font := DeinEdit.Font;
             dummyLabel.Caption := VCL.FileCtrl.MinimizeName(OpenPictureDialog1.FileName, dummyLabel.Canvas, dummyLabel.Width);
          finally
             DeinEdit.Text := dummyLabel.Caption;
          end;
     end;
end;