Hallo Lazarus-Gemeinde
Ich bräuchte wiedermal ein paar Infos.
Ich habe in meinem Programm ein TEdit und dort werden im "onKeyDown" Event Hotkeys verarbeitet.
Hotkey Arrowkey: up oder down scheint aber von dem TEdit vordefiniert zu sein, denn der Curor wandert nach vorn/hinten im eingegebenen Text.
Ziel des Hotkey Befehls ist es ein neues Item zu selektieren und am Ende wird wieder das TEdit focusiert, und dabei soll der ganze (neu geladene) Text selektiert werden. Das funktioniert nur mit einem anderen Hotkey, zum Beispiel "Page up oder down".
Ich frag mal ganz naiv: Kann man diese "vordefinierten" Hotkeys für das TEdit(oder auch andere Komponenten) deaktivieren?
Selbst wenn ich nach dem neu Fokusieren des TEdit "SelectAll" ausführe wird der neue Text nicht selektiert.
hubble
TEdit - Hotkeys Arrowkeys
Re: TEdit - Hotkeys Arrowkeys
Wenn ich es jetzt richtig verstanden habe, hast du vergessen den Key auf null zu stellen:
Code: Alles auswählen
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case key of
VK_UP:
begin
Caption := 'Mach was hier';
Key := 0; // <- Wichtig
end;
VK_DOWN:
begin
Caption := 'Mach was anderes hier';
Key := 0; // <- Wichtig
end;
end;
end;
Code: Alles auswählen
type
TLiveSelection = (lsMoney, lsChilds, lsTime);
TLive = Array[0..1] of TLiveSelection;
Re: TEdit - Hotkeys Arrowkeys
Jupp, den Key am Ende wieder auf 0 setzen bringt es.
Danke schön.
Danke schön.