Tutorial: Splash Screens

[shmia]

Im Konstruktor des Splash-Forms Sollte Folgendes stehen:

Delphi-Quellcode:

function RunningInDelphi: Boolean;
begin
   Result := DebugHook <> 0;
end;


procedure TfrmSplash.FormCreate(Sender: TObject);
begin
   if RunningInDelphi then
      FormStyle := fsNormal     
   else
      FormStyle := fsStayOnTop;
end;

Beim Debuggen mit Delphi wird so verhindert, dass sich der
Splash-Screen über die Delphi-IDE legt.