Wie kann ich auf Key-Ereignisse reagieren??

[Nik Greger]

<b>Hallo Zusammen</b><p>
Wie kann ich bei eier Komponente die nicht aktiv ist auf ein KeyDown<p>
Ereignis reagieren?<p>
Mit folgendem Code habe ich es probiert:<p>
<p>
type<p>
TDafControlBar = class(TPanel)<p>

protected<p>
procedure KeyDownMsg (var Msg: TMsg; var Handled: Boolean);<p>
end;<p>
<p>
implementation<p>
<p>
constructor TDafControlBar.Create(AOwner: TComponent);<p>
begin<p>
// Verknüpfung von OnMessage Ereigniss mit der eigenen Ereignisprozedure<p>
Application.OnMessage := KeyDownMsg;<p>
end;<p>
<p>
procedure TDafControlBar.KeyDownMsg(var Msg: TMsg; var Handled: Boolean);<p>
begin<p>
case Msg.message of<p>
WM_KEYDOWN : begin<p>
<p>
case Msg.wParam of<p>
// Page Up<p>
33 : begin<p>
<p>
PriorClick(Self); // Zeigt das vorhergehende Fenster an<p>
end;<p>
// Page Down<p>
34: begin<p>
NextClick(Self); // Zeigt das nächste Fenster an<p>
end;<p>
end;<p>
end; // case<p>
end; // case<p>
end;<p>
<p>
Das Problem ist dass das Programm beim erstellen von mereren gleichen Fenstern immer das letzte als "aktiv" setzt.<p>

Für einen Hinweis danke ich euch im Voraus.