![]() |
Wie einen Text in TEdit linksbündig halten?
Liste der Anhänge anzeigen (Anzahl: 3)
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: Anhang 50917 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": Anhang 50918 Was muss ich machen, damit sich der Pfad im Edit-Feld auch neu ausrichtet: Anhang 50919 |
AW: Wie einen Text in TEdit linksbündig halten?
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 |
AW: Wie einen Text in TEdit linksbündig halten?
Zitat:
Und das beste: Es funktioniert.:-D |
AW: Wie einen Text in TEdit linksbündig halten?
Am besten noch abwarten. Es gibt sicher bessere Lösungen.
|
AW: Wie einen Text in TEdit linksbündig halten?
Liste der Anhänge anzeigen (Anzahl: 1)
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; |
AW: Wie einen Text in TEdit linksbündig halten?
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. |
AW: Wie einen Text in TEdit linksbündig halten?
|
AW: Wie einen Text in TEdit linksbündig halten?
Zitat:
Aussage des TE Zitat:
|
AW: Wie einen Text in TEdit linksbündig halten?
Ups. :D
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:59 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz