AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Wie einen Text in TEdit linksbündig halten?

Ein Thema von Woodman · begonnen am 26. Mär 2019 · letzter Beitrag vom 28. Mär 2019
Antwort Antwort
Benutzerbild von Woodman
Woodman

Registriert seit: 17. Mär 2007
74 Beiträge
 
Delphi 10.1 Berlin Starter
 
#1

Wie einen Text in TEdit linksbündig halten?

  Alt 26. Mär 2019, 18:06
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:
tedit-ausrichten.jpg
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":
tedit-ausrichten2.jpg

Was muss ich machen, damit sich der Pfad im Edit-Feld auch neu ausrichtet:
tedit-ausrichten3.jpg
Keep
Horst
Delphi 10.1 Berlin Starter unter Windows 10 - 1803
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.913 Beiträge
 
#2

AW: Wie einen Text in TEdit linksbündig halten?

  Alt 26. Mär 2019, 18:08
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

Geändert von DieDolly (26. Mär 2019 um 18:18 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Woodman
Woodman

Registriert seit: 17. Mär 2007
74 Beiträge
 
Delphi 10.1 Berlin Starter
 
#3

AW: Wie einen Text in TEdit linksbündig halten?

  Alt 26. Mär 2019, 18:14
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.
Keep
Horst
Delphi 10.1 Berlin Starter unter Windows 10 - 1803
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.913 Beiträge
 
#4

AW: Wie einen Text in TEdit linksbündig halten?

  Alt 26. Mär 2019, 18:17
Am besten noch abwarten. Es gibt sicher bessere Lösungen.
  Mit Zitat antworten Zitat
Benutzerbild von newIndy
newIndy

Registriert seit: 18. Dez 2018
Ort: Bad Dürkheim
22 Beiträge
 
Delphi XE3 Professional
 
#5

AW: Wie einen Text in TEdit linksbündig halten?

  Alt 26. Mär 2019, 19:38
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;
Miniaturansicht angehängter Grafiken
clipboard01.jpg  
Fritz Kunkel
  Mit Zitat antworten Zitat
Benutzerbild von Woodman
Woodman

Registriert seit: 17. Mär 2007
74 Beiträge
 
Delphi 10.1 Berlin Starter
 
#6

AW: Wie einen Text in TEdit linksbündig halten?

  Alt 27. Mär 2019, 10:41
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.
Keep
Horst
Delphi 10.1 Berlin Starter unter Windows 10 - 1803
  Mit Zitat antworten Zitat
Dennis07

Registriert seit: 19. Sep 2011
Ort: Deutschland
435 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: Wie einen Text in TEdit linksbündig halten?

  Alt 27. Mär 2019, 16:19
Du kannst Pfade auch "verkleinern": GetShortPathNameW bzw. GetFullPathNameA
Dennis
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.913 Beiträge
 
#8

AW: Wie einen Text in TEdit linksbündig halten?

  Alt 27. Mär 2019, 16:59
Du kannst Pfade auch "verkleinern": GetShortPathNameW bzw. GetFullPathNameA


Aussage des TE
Zitat:
Und ich mag keine abgekürzten Pfade.
  Mit Zitat antworten Zitat
Dennis07

Registriert seit: 19. Sep 2011
Ort: Deutschland
435 Beiträge
 
Delphi 10.3 Rio
 
#9

AW: Wie einen Text in TEdit linksbündig halten?

  Alt 28. Mär 2019, 00:30
Ups.
Dennis
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf