Wie einen Text in TEdit linksbündig halten?

[Woodman]

Hallo Wissende,
in einer Form öffne ich ein Verzeichnis um die darin befindlichen JPG-Dateien eizulesen.
Der Pfad ist u.U. ziemlich lang, so das er nicht in das Edit-Feld passt ebenso die Dateien im Memo:

Wenn ich die Form "auseinander ziehe", dann ordnen sich die Dateinamen im Memo wie ich es erwarte, aber der Pfad im Edit-Feld bleibt links "verschwunden":


Was muss ich machen, damit sich der Pfad im Edit-Feld auch neu ausrichtet:

[DieDolly]

Sicher nicht die schönste Lösung, aber das hier ins FormResize.

Delphi-Quellcode:

DeinEdit.SelLength := 0; // Textmarkierung aufheben
DeinEdit.SelStart := 0; // Cursor an Position 0 (Anfang) setzen

[Woodman]

Zitat von DieDolly:

Sicher nicht die schönste Lösung, aber das hier ins FormResize.

Delphi-Quellcode:

DeinEdit.SelLength := 0;
DeinEdit.SelStart := 0;

Wow, das ging aber flott.
Und das beste: Es funktioniert.

[DieDolly]

Am besten noch abwarten. Es gibt sicher bessere Lösungen.

[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;

[Woodman]

Hallo newIndy,
vielen Dank für Deinen Vorschlag, aber die Lösung von DieDolly war perfekt für mich: Einfach zu integrieren. Und ich mag keine abgekürzten Pfade. Speziell bei Fehlermeldungen ist es eine häufige Unsitte die fehlende Datei so anzuzeigen.

[Dennis07]

Du kannst Pfade auch "verkleinern": GetShortPathNameW bzw. GetFullPathNameA

[DieDolly]

Zitat von Dennis07:

Du kannst Pfade auch "verkleinern": GetShortPathNameW bzw. GetFullPathNameA

Aussage des TE

Zitat:

Und ich mag keine abgekürzten Pfade.

[Dennis07]

Ups.