Du übergibst der neuen Instanz einen Integer (z.B. wm_user+10).
Für beide Forms musst du dich dann in die Nachrichtenschleife einklinken. Dies ist die Methode wndprocdes Forms. Also deklarierst du
Delphi-Quellcode:
TForm1=class(TForm)
protected procedure wndproc(var Message:TMessage); override;
Un dann in der Implementation:
Delphi-Quellcode:
procedure TForm1.wndproc(var Message:TMessage);
begin
if Message.msg=meineNachricht then //<--Der übergebene Integer kommt in Meinenachricht
begin
//Behandle die Nachricht und Nutze dabei lparam und wparam
end
else
inherited; //Standardnachrichtenbehandlung
end;