Also das scheint ein Bug in der
VCL zu sein.
Trotz keypreview kommen keine Tastaturereignisse in der Form an, wenn
ActiveControl = nil ist.
Ich habe mir jetzt mit einer ApplicationEvent Componente geholfen.
(Es wird Strg + und strg - zum Zoomen abgefangen).
Hier die Lösung :
Delphi-Quellcode:
procedure Tf_Struktur.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if MSG.message = wm_keydown then
begin
if msg.wParam = 107 then
begin
Grafik.MouseWhel(120,LastMousepos);
msg.wParam := 0;
msg.message := 0;
end;
if msg.wParam = 109 then
begin
Grafik.MouseWhel(-120,LastMousepos);
msg.wParam := 0;
msg.message := 0;
end;
end;
end;
Gruß Peter
[edit=sakura] [delphi]Tags Mfg, sakura[/edit]