Thema: Delphi Aufzählung in RichEdit

Einzelnen Beitrag anzeigen

Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#19

Re: Aufzählung in RichEdit

  Alt 27. Mai 2009, 00:28
Und nun hier noch die Lösung!

Also, ich wollte ja verhindern, dass er einen Tab in das RichEdit schreibt. Und ich habe auch schon abgefragt, ob ein TAB gedrückt wurde. OnKeyPress / OnKeyDown / OnKeyUp wird ausgeführt, bevor das Zeichen geschrieben wird....

Das bedeutet, nachdem ich das Zeichen (TAB) abgefangen habe, muss ich es auf meine Art und Weise verarbeiten und dann "vernichten", bevor es nochmal vom RichEdit (oder was auch immer verarbeitet wird). Und das geht einfach damit:

Delphi-Quellcode:
if (Key = Char(VK_TAB)) then
begin
  //Tabulator vernichten, wenn nötig:
  if (AktuellerParagraphIstEineAufzählung) then
  begin
    Key:=#0;
    //Eigene Verarbeitung starten
    TieferGliedern();
  end;
end;
Die Variable "AktuellerParagraphIstEineAufzählung" gibt es bei mir natürlich nicht. Sie sollte nur zeigen, dass man darauf achten soll zu prüfen, ob man sich in einer Aufzählung befindet. Fehlt diese Prüfung, könnte der User keine TABs mehr setzen. Is ja auch doof ^^

So, ich verabschiede mich jetzt mal mit einem großem "Dankeschön"...

Dankeschön und Tschüss
  Mit Zitat antworten Zitat