Hi Leute,
ich habe hier ein kurioses Problem, das ich mir nicht so recht erklären kann. Vom Grundgedanken her will ich einfach nur den Seitenwechsel in einem PageControl über die Tastatur ansteuern und den Focus dabei weiterreichen. Ich verwende dazu folgende Prozedur :
Delphi-Quellcode:
procedure Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = 17) or ((key = vk_prior) and (shift = [ssSHIFT] )) then
begin
PageControl1.ActivePageIndex:=1;
if memo2.CanFocus then memo2.SetFocus;
end;
end;
Der Seitenwechsel klappt in jedem Fall. Das Problem liegt im Focus.
Wenn ich mit <STRG>, also mit der 17 komme, dann klappt das prima. Komme ich mit <Shift> + <Bild hoch>, dann wird zwar die Seite im PageControl gewechselt, das Setzen des Focus zeigt aber keinerlei Wirkung, obwohl memo2.canfocus TRUE liefert. Leider muss ich <Shif> + <Bild hoch> verwenden. Hat jemand eine Ahnung, was das sein könnte ?
Gruß alfred
