Jak w TEdit wyrównać tekst do prawej strony ?

0

Nic dodac, nic ująć... --Login

0

Edit nie posiada takiej opcji poniewaz: "Projektanci z Borlanda, aby zapobiec nieporozumieniom i zapewnić kompatybilność z wszystkimi wersjami Windows, celowo usunęli taką opcję."
Ale mozesz sprobowac tego:

Obiekt typu TMemo posiada interesującą nas opcję, czyli umożliwia wyrównanie tekstu do prawej lub lewej strony. Problem polega na takim dobraniu jego właściwości, aby jak najbardziej przypominał TEdit. W tym celu najpierw zmieniamy jego rozmiar:
Memo1.Height:=21;
Następnie wyłączamy możliwość wyświetlenia pasków przewijania:
Memo1.ScrollBars:=ssNone;
Koniecznie musimy również zabronić zawijania wierszy:
Memo1.WordWrap:=False;
oraz uniemożliwić wstawienie nowej lini przy pomocy klawisza Enter:
Memo1.WantReturns:=False;
Na koniec przydałoby się zabronić używania klawisza Tab:
Memo1.WantTabs:=False;
Tak, teraz nasze TMemo wygląda identycznie jak TEdit. Możemy za to ustawić sobie wyrównanie na przykład do prawej strony:
Memo1.Alignment:=taRightJustify;
Zauważ jednak, że zaszła pewna istotna zmiana - odczyt zawartości tak spreparowanego pola edycyjnego następuje poprzez odwołanie:
lancuch:=Memo1.Lines.Text;--Delphi 6, Pascal

----====Pozdrawiam @ll====----
------====== RFL ======------
--==[ [email protected] ]==--
----====[ GG: 3532533 ]====----

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0