Hallo,
Ich habe ein Problem bei der Eingabe eines Betragswertes.Dieser soll Rechtsbündig dargestellt werden.
Wie kann ich in einer Edit oder MaskEdit-Komponente den Text rechtsbündig darstellen?


Gruß und Danke
Carsten

Hallo,

linksbünding:



rechtsbünding müsste den VK_Home durch VK_END oder VK_Right ersetzen.
Musste mal ausprobieren!

Nicht vergessen die Ereignisse zu setzen

Sandy

Hallo!

cwille hat folgendes geschrieben:

Wie kann ich in einer Edit oder MaskEdit-Komponente den Text rechtsbündig darstellen?

Schau dir mal diesen Beitrag von mir an.

Gruß
Tino

Hallo Sandy,
bei den beiden Ereignissen handelt es sich doch OnKeyDown und OnKeyUP.
Soll in den beiden Proceduren jetzt jeweils die entsprechende Postmessage-Anweisung aufgerufen werden?
Habe ich gemacht und mit den beiden Parameter ausprobiert.
Ergenis:
Wie Sie sehen , sehen Sie nichts.

Was kann evtl. noch falsch sein?

Singing Sandy hat folgendes geschrieben:

Hallo, linksbünding: markieren Delphi-Quelltext     1: 2: 3: 4: 5: procedure TForm1.Edit1Enter(Sender: TObject); begin         postmessage(MaskEdit1.Handle, wm_KeyDown, VK_Home, $14F00);         postmessage(MaskEdit1.Handle, wm_KeyUp,   VK_Home, $14F00); end; rechtsbünding müsste den VK_Home durch VK_END oder VK_Right ersetzen. Musste mal ausprobieren! Nicht vergessen die Ereignisse zu setzen Sandy

Hallo,

für rechtsbündig musst Du VK_END nehmen, dann in der MaskEdit das Ereignis auf EditEnter stellen bei den KeyEreignissen.
Sonst weiss ich nicht, woran es liegen könnte.
Wenns nicht klappt, schicke mal eine persönliche Nachricht.
Dann schaue ich in meinen Programmen noch mal genau nach.
Oder schaue in der Suche, da gibt es auch noch andere Beispiele.

Sandy

Hi Carsten,

wie wärs denn, wenn du einfach ein normales Memo-Feld nimmst, da dann in der Alignment-Option "taRightJustify" eingibst?
Kannst ja ohne Probleme eine Memofeld wie ein Textfeld "formatieren". z.B. kein WordWrap (Zeilenumbruch) o.ä..

Ich habs jedenfalls so gemacht.

mfG
Wäscher