WndProc(var msg : TMessage);override;

[jbg]

Zitat von fuknersascha:

Kann mann das jetzt irgenwie so schreiben das ich es von der Ersten Form auf die andere übertrage

Erstelle einfach eine eigene Form-Klasse, von der all deine Formulare erben:

Delphi-Quellcode:

unit MyForms;

interface

type
  TMyForm = class(TForm)
  protected
    procedure WndProc(var Msg: TMessage); override;
  end;

implementation

procedure TMyForm.WndProc(var Msg: TMessage);
begin
  ...
end;

end.

Delphi-Quellcode:

unit Form1;

interface

uses
  MyForms;

type
  TForm1 = class({=>}TMyForm{<=})
    ...
  private
  public
  end;

...