[gelöst] Drücken der Tab Taste im LzRichEdit -> Fehler

[idefix]

Hallo!

Mist, das Betreff-Fenster ist zu klein um aussagekräftige Betreffs zu schreiben!

---------------------

Ich habe ein LzRichEdit und möchte nachdem ich Text eingegeben habe, mit der Tab Taste zu einem Button wechseln.
Das klappt nicht mehr. es tritt der Effekt ein, wenn ich in Word die Tab Taste drücke. Der Cursor springt einige Stellen im Edit nach rechts.

Das klappt mit einem Memo. Das hatte auch vor einer Neuinstallation mit einem LzRichEdit geklappt.

Entweder hat man LzRichEdit weiterentwickelt, oder es ist z.B. im Objektinspector etwas verstellt. Hier habe ich einiges versucht, hatte aber keinen Erfolg.

Der Code müsste OK sein. Da es mit einem Memo funktioniert.

Code: Alles auswählen

procedure TForm2.StartClick(Sender: TObject);
begin
   Stelle_im_Fach := (Random(Anzahl_Vokabeln_im_Fach));
   lzRichEdit1.Text:= DatenAbfrage[Stelle_im_Fach].FrageAbfrage;
 
   Start.TabStop := false;
   Start.Visible := false;
 
  LzRichEdit2.Caption:= '';
  LzRichEdit2.TabStop := true;
  LzRichEdit2.SetFocus;
 
  AntwortAnzeigen.Visible := true;
  AntwortAnzeigen.Enabled:= true;
  AntwortAnzeigen.TabStop := true;
end;
 

Es wäre toll, wenn es dafür eine Lösung gibt!

Vielen Dank!

Gruß!
idefix

[theo]

Normalerweise ist property WantTabs zuständig. Sollte hier false sein.

[pluto]

Notfalls: Ich kenne diese Komponente jetzt nicht, aber es dürfte ein onKeyDown Event geben.

Sobald du die Taste Tab drückst, musst du es hier abfangen und den var Parameter key auf 0 stellen.
Das Problem sollte gelöst sein.
(Mit sehr viel Glück)

[idefix]

Hallo!

WantTabs sowohl true als auch false hat nichts gebracht.

----------------

Notfalls: Ich kenne diese Komponente jetzt nicht, aber es dürfte ein onKeyDown Event geben.

Sobald du die Taste Tab drückst, musst du es hier abfangen

Das hat geklappt:

Code: Alles auswählen

procedure TForm2.lzRichEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_TAB : begin
               Label10.Caption:='Tab_Taste';
               //Key := 0;
               AntwortAnzeigen.SetFocus;
            end;
    VK_SPACE : begin
               Label10.Caption:='Space_Taste';
            end;
  end;
end;   

key auf 0 setzen verhindert die Reaktion auf die Tab Taste, wie man es von Word kennt.
Man muss noch Windows als Unit setzen.

Dann klappt das.

PS: AntwortAnzeigen ist der nächste Button.

Vielen Dank!

Gruß!
idefix