Fehler gefunden
Es geht, wenn ich die Formulare erst anzeige und dann das CurrentFormHandle speichere ...
Delphi-Quellcode:
Form2.show;
CurrentFormHandle:=Form2.Handle;
SendMyMessage(CurrentFormHandle);
Form3.show;
CurrentFormHandle:=Form3.Handle;
SendMyMessage(CurrentFormHandle);
Form4.show;
CurrentFormHandle:=Form4.Handle;
SendMyMessage(CurrentFormHandle);