Also, die Prozedur wird in einem Timer ausgelöst:
Delphi-Quellcode:
procedure Tmainform.die_prozedur();
begin
timer1.enabled:=false;
Application.CreateForm(Tform2, form2);
form2.showmodal();
self.setfocus();
end;
Und dieses setfocus bringt eben nichts.
Genauso wenig wie refresh.
Und mir fällt auch keine andere Möglichkeit ein...