![]() |
TRichEdit und [STRG+ENTER]
Ich habe volgenes Problem
Ich möchte das eine bestimmte Aktion Ausgelößt wird wenn ich die STRG + Enter Taste innerhalb eines Richtextes drücke ok, es klappt auch über das OnKeyDown Ereignis:
Delphi-Quellcode:
Das ereignis wird auch ausgeößt.....
procedure TMessage_Fenster.enter_textKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); begin if (ssCtrl in Shift) and (Key = VK_RETURN) then begin Key := 0; button1.Click; enter_text.clear end; end; Doch wenn ich enter drücke, dann übernimmt er den Zeilenvorsub gleich wieder, und der Cursor steht in der 2. Zeile, das jedoch wegen dem Key:=0; nicht passieren dürfte... währe nett wenn jmand eine Lösung hätte.... P.S. wenn ich es nur mit enter mache, dann benutze ich OnKeyPress und dort macht er es wie gewollt.. doch bei onkeypress kann ich keine tastenkombination abfangen... MfG Real_Thunder |
Re: TRichEdit und [STRG+ENTER]
Hallo,
vergiss OnKeyDown und definiere die Tastenkombination als ShortCut in deiner ActionList. Grüße vom marabu |
Re: TRichEdit und [STRG+ENTER]
Wie Wo Wann mache ich das ?
Habe noch nie mit Actionlist gearbeitet... Könntest du mir Erklären wie man das macht ? |
Re: TRichEdit und [STRG+ENTER]
Ziehe die Komponente TActionList aus der Standardpalette auf deine Form, Öffne deren Editor mit einem Doppelklick auf die Komponente und erzeuge eine Action. Trage bei ShortCut Strg+Enter ein und im event handler für OnExecute rufe deinen Code auf, falls RichEdit.Focused.
marabu |
Re: TRichEdit und [STRG+ENTER]
Zitat:
Frank |
Re: TRichEdit und [STRG+ENTER]
Hallo Frank,
die Vorteile sind aus meiner Sicht
|
Re: TRichEdit und [STRG+ENTER]
Ahh ok...
Habe auch noch nicht damit gearbeitet... Dacht immer die Kombo ist "nur" für die entsprechenden Buttonleisten da... Werde es mir mal ansehen... Grüsse Frank |
Re: TRichEdit und [STRG+ENTER]
Bekomme das Irgendwe nit gebacken... Finde den Shortcut STRG + Enter nicht und wie ordne ich die Actionlist dem TRichEdit zu ? :wall: :wall: :wall:
|
Re: TRichEdit und [STRG+ENTER]
Liste der Anhänge anzeigen (Anzahl: 1)
Nicht doch - mit dem Kopf durch die Wand!
Ich habe dir eine Demo angehängt, die dir zeigt wie du vorgehen kannst. marabu |
Re: TRichEdit und [STRG+ENTER]
Ahhh.. mußte erstmal mit der Logik die hinter der Actionlist steht klarkommnen.... naja auf jedenfall es hat wunderbar Funktioiert..
DANKE MfG Real Thunder |
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:49 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