Entwickler-Ecke

Windows API - Presenter Mouse abfangen > undef. Bezeichner 'WM_APPCOMMAND'


MarioL - Sa 01.01.11 19:15
Titel: Presenter Mouse abfangen > undef. Bezeichner 'WM_APPCOMMAND'
Hallo, ich möchte gern mein Prog mit einem Presenter steuern und habe dazu im Netz so einiges gefunden
wie zum Beispiel folgendes:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
type
  TForm1 = class(TForm)
    procedure Hallo(var Msg: tagMsg); message WM_APPCOMMAND;
  end;

{...}

procedure TForm1.Hallo(var Msg: tagMSG);
begin
  case Msg.wParam of
    720896: ShowMessage('Nächste Folie');
    786432: ShowMessage('Vorherige Folie');
    917504: ShowMessage('Leere Folie');
  end;
end;


leider erhalte ich folgenden Fehler:
undefinierter Bezeichner 'WM_APPCOMMAND',

hat jemand eine Ahnung woran das liegt? evtl. fehlende unit? (benutze Delphi6)

MfG Mario


bummi - Sa 01.01.11 19:20

Hast Du Messages in Deinen uses?

Delphi-Quelltext
1:
2:
  {$EXTERNALSYM WM_APPCOMMAND}
  WM_APPCOMMAND       = $0319;


Martok - Sa 01.01.11 19:21

Wie sich in der Forensuche hätte einfach finden lassen, existiert diese Konstante in der Unit Messages - aber erst seit D7 oder so.

In früheren Versionen darf man sich die selber deklarieren:

Delphi-Quelltext
1:
WM_APPCOMMAND       = $0319;                    


Und ich war zu langsam :(


MarioL - Sa 01.01.11 20:31

Danke

MfG Mario