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/)
-   -   Delphi TRichEdit und [STRG+ENTER] (https://www.delphipraxis.net/73975-trichedit-und-%5Bstrg-enter%5D.html)

Real_Thunder 26. Jul 2006 10:36


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:
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;
Das ereignis wird auch ausgeößt.....
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

marabu 26. Jul 2006 10:48

Re: TRichEdit und [STRG+ENTER]
 
Hallo,

vergiss OnKeyDown und definiere die Tastenkombination als ShortCut in deiner ActionList.

Grüße vom marabu

Real_Thunder 26. Jul 2006 10:58

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 ?

marabu 26. Jul 2006 11:05

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

Mavarik 26. Jul 2006 11:06

Re: TRichEdit und [STRG+ENTER]
 
Zitat:

Zitat von marabu
Hallo,

vergiss OnKeyDown und definiere die Tastenkombination als ShortCut in deiner ActionList.

Grüße vom marabu

Btw.:Wo ist der Vorteil?

Frank

marabu 26. Jul 2006 11:28

Re: TRichEdit und [STRG+ENTER]
 
Hallo Frank,

die Vorteile sind aus meiner Sicht
  • ein standardisiertes und zentralisiertes ShortCut-Management (maintainability)
  • die ShortCuts kommen garnicht erst bei den Controls an (information hiding)
  • außerdem können sie so noch beim Kunden konfiguriert werden (useability)
Grüße vom marabu

Mavarik 26. Jul 2006 11:44

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

Real_Thunder 26. Jul 2006 18:08

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:

marabu 26. Jul 2006 19:03

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

Real_Thunder 28. Jul 2006 12:34

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