D2005 und keypreview

[hanspeter]

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]