Thema: Delphi How2 LoadAccelerators?

Einzelnen Beitrag anzeigen

dmw256

Registriert seit: 26. Dez 2002
36 Beiträge
 
Delphi 5 Professional
 
#1

How2 LoadAccelerators?

  Alt 20. Mär 2004, 22:26
Moin!

Ich will mit LoadAccelerators und eigenem Resource-File Menu und Shortcuts erstellen und hab dafür sowas in 'n Resource-File gesteckt und mit BRC32 umgewandelt.

Code:
#define id_save  1000

Menu     MENU
BEGIN
  POPUP "&File"
  BEGIN
    MENUITEM "&Save\tF3", id_save
  END
END

Acce    ACCELERATORS
BEGIN
  VK_F3,    id_save, VIRTKEY
END
Im Programm kommt dann sowas wie:

Code:
  accel:=LoadAccelerators(hInstance,'Acce');

  while GetMessage(msg,0,0,0) do
  begin
    if TranslateAccelerator(wnd,accel,msg)=0 then
    begin
      TranslateMessage(msg);
      DispatchMessage(msg);
    end;
   end;
Das Menü klappt super, aber die Shortcuts nisch... Die WinProc wird zwar mit 'nem WM_COMMAND aufgerufen, aber wParam erhält immer 65536, nie id_save (eigentlich sollte doch TranslateAccelerator die WinProc mit den richtigen Werten füttern, oder?)
Hab ich irgendwas vergessen???

Danke schon jetzt für jede Hilfe
dmw256
Woher soll ich wissen, was ich denkte,
bevor ich höre, was ich sage...
  Mit Zitat antworten Zitat