I want to add splash:
Delphi-Quellcode:
begin
Application.ProcessMessages;
with TForm1.Create(nil) do
try
Show;
Application.Initialize;
Application.MainFormOnTaskbar := False;
Application.Title := 'Project5';
Application.CreateForm(TMainForm, MainForm);
Sleep(1000);
finally
Free;
Application.MainFormOnTaskbar := True;
Application.Run;
end;
end.
After F9 on 7 I have 2 taskbuttons: first when splash i visible, then it is destroyed, and another one when main form i showed. On XP it is showed after splash (when splash just icon is visible in taskbar). What I have to do to get one taskbutton?