Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Textkomponente die Enter unterstützt (https://www.delphipraxis.net/150520-textkomponente-die-enter-unterstuetzt.html)

danidano 19. Apr 2010 20:46


Textkomponente die Enter unterstützt
 
Hallo.

Gibt es denn nicht irgendwo eine Textkomponente bei Delphi die auch die Enter Taste unterstützt?
Also sowas wie ein Edit Feld und wenn ich Enter drücke wird eine Zeile nach unten gerutscht.
Ein ganz normales, schlichtes Textfeld halt, dass nicht nur eine lange Zeile macht, sondern auch automatisch in die nächste Zeile springt sollte in der obrigen Zeile kein Platz mehr sein. Wie in Word halt :P

Wo gibts denn sowas? Ich finde nichts bei den Komponenten :wall:

jfheins 19. Apr 2010 20:48

Re: Textkomponente die Enter unterstützt
 
TMemo ?

s.h.a.r.k 19. Apr 2010 20:48

Re: Textkomponente die Enter unterstützt
 
Warum machst du das eigentlich nicht selbst? -> OnKeyPress

Teekeks 19. Apr 2010 20:48

Re: Textkomponente die Enter unterstützt
 
TMemo
[edit]
Man seit ihr schnell.[/edit]

danidano 19. Apr 2010 21:05

Re: Textkomponente die Enter unterstützt
 
Das kann man selber machen mit OnKeyPress?

Also wenn ich jetzt ein normales Edit Feld habe, was muss ich da genau in die OnKeyPress Prozedur reinschreiben?
Sorry bin totaler Anfänger... :oops:

mkinzler 19. Apr 2010 21:07

Re: Textkomponente die Enter unterstützt
 
Dieser Event wird bei jedem Tastendruck ausgelöst. Aber wie geschrieben, solte ein TMemo genau so verhalten, wie von dir gewünscht

DP-Maintenance 20. Apr 2010 05:26

DP-Maintenance
 
Dieses Thema wurde von "mkinzler" von "Object-Pascal / Delphi-Language" nach "VCL / WinForms / Controls" verschoben.
Geht um eine Komponente und nicht um ein Sprachfeature

Jens Hartmann 20. Apr 2010 05:50

Re: Textkomponente die Enter unterstützt
 
Hallo,

so in etwa kannst Du das mit jeder Kompo lössen...

Delphi-Quellcode:
procedure TIrgendwas.OnKeyPress(Sender: TObject; var Key: Char);
begin
  if (key = #13) then //#13 wäre z.B. ENTER
    begin
siehe
Tastaturcodes

Gruß Jens


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:16 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-2025 by Thomas Breitkreuz