Einzelnen Beitrag anzeigen

Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Komponente darf keinen Focus erhalten

  Alt 26. Apr 2005, 18:05
Wie hast Du denn den Hotkey realisiert? Vielleicht setzt die Komponente auch selber den Focus. Bei folgendem Beispiel (ein Edit und ein Memo zum Testen) verliert das Edit jedenfalls nicht den Focus, das Memo scrollt ordnungsgemaess:
Delphi-Quellcode:
procedure TFormHotKeyTest.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if shift = [ssCtrl] then
   begin
      case key of
      VK_LEFT :
         begin
            MemoScroll.Perform(WM_KEYDOWN, VK_HOME,0);
            key := 0;
         end;
      VK_RIGHT :
         begin
            MemoScroll.Perform(WM_KEYDOWN, VK_END,0);
            key := 0;
         end;
      end;
   end;
end;
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat