Windows Message in einer Klasse

[Bunke5]

Erstmal Danke für die Idee, ich hatte auch schon eine ähnliche Idee.
Wenn ich die Nachricht im Form abfange und weiterleite geht es.

Delphi-Quellcode:

procedure wndproc(var Message: TMessage); override; 

procedure TForm1.wndproc(var Message: TMessage);
begin
  if Message.Msg = WM_INPUTLANGCHANGE then Sprache.KeyboardChange(Message)
  else inherited wndproc(Message);
end;

Das klapp soweit auch ganz gut, aber sobald ich einen Button auf dem Formular habe geht es nicht mehr. Und ich kann doch nicht für jeden Button oder ähnliches die Behandlungsroutine überschreiben, da muss es doch noch einen anderen Weg geben?