Hauptform verschwindet nach Aufruf eines anderen Forms

[Uwe Raabe]

Wie sieht denn deine DPR aus? Insbesondere in Bezug auf MainFormOnTaskbar?

[DonManfred]

Zitat von Uwe Raabe:

Wie sieht denn deine DPR aus? Insbesondere in Bezug auf MainFormOnTaskbar?

Das ist die aktuelle DPR. Viele CreateForm geREMt um das Problem zu finden.

Code:

program Service;

uses
  madExcept,
  madLinkDisAsm,
  madListHardware,
  madListProcesses,
  madListModules,
  Forms,
  anmerkungen in 'anmerkungen.pas' {Form4},
  arbeitszeiten in 'arbeitszeiten.pas' {frmzeiten},
  artikelliste in 'artikelliste.pas' {artlist},
  bsumme in 'bsumme.pas' {frm_b},
  bvhselect in 'bvhselect.pas' {frmbvhselect},
  bvhsuchen in 'bvhsuchen.pas' {frmbvhsuchen},
  debug in 'debug.pas' {dbg},
  dm in 'dm.pas' {db: TDataModule},
  dmActionsSRV in 'dmActionsSRV.pas' {srvActionsResource: TDataModule},
  email in 'email.pas' {frmemail},
  frmkvdruck in 'frmkvdruck.pas' {kvdruck},
  int3OnFileDrop in 'int3OnFileDrop.pas',
  kommentare in 'kommentare.pas' {frmkommentar},
  kvtermine in 'kvtermine.pas' {frmkvtermine},
  logger in 'logger.pas' {log},
  main in 'main.pas' {frmmain},
  material in 'material.pas' {frmmaterial},
  md5 in 'md5.pas',
  monteure in 'monteure.pas' {frmmonteure},
  notizen in 'notizen.pas' {frmnotizen},
  rechtenamedefinieren in 'rechtenamedefinieren.pas' {frmrechtename},
  reklamation in 'reklamation.pas' {frmrekla},
  rma_per_email in 'rma_per_email.pas' {frmrmaemail},
  SPGetSid in 'SPGetSid.pas',
  superobject in 'superobject.pas',
  superxmlparser in 'superxmlparser.pas',
  unix_utils in 'unix_utils.pas',
  ushfileoperation in 'ushfileoperation.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.HelpFile := '';
  Application.CreateForm(Tfrmmain, frmmain);
  //Application.CreateForm(Tdb, db);
  //Application.CreateForm(Tlog, log);
  //Application.CreateForm(Tdbg, dbg);
  //Application.CreateForm(Tkvdruck, kvdruck);
  //Application.CreateForm(Tfrmzeiten, frmzeiten);
  //Application.CreateForm(Tartlist, artlist);
  //Application.CreateForm(Tfrm_b, frm_b);
  //Application.CreateForm(Tfrmmonteure, frmmonteure);
  //Application.CreateForm(Tfrmnotizen, frmnotizen);
  //Application.CreateForm(Tfrmrmaemail, frmrmaemail);
  //Application.CreateForm(Tfrmemail, frmemail);
  //Application.CreateForm(TForm4, Form4);
  //Application.CreateForm(Tfrmbvhselect, frmbvhselect);
  Application.CreateForm(Tfrmbvhsuchen, frmbvhsuchen);
  //Application.CreateForm(Tfrmrekla, frmrekla);

  //Application.CreateForm(Tfrmmaterial, frmmaterial);
  //Application.CreateForm(TsrvActionsResource, srvActionsResource);

  //Application.CreateForm(Tfrmkommentar, frmkommentar);
  //Application.CreateForm(Tfrmkvtermine, frmkvtermine);
  //Application.CreateForm(Tfrmrechtename, frmrechtename);


  //Application.CreateForm(Tfrmbvhselect, frmbvhselect);
  //Application.CreateForm(Tfrmbvhsuchen, frmbvhsuchen);
  Application.Run;
end.

Aber auch das setzen von MainFormOnTaskbar (true oder false) bringt keine Änderung. Abgesehen davon das das Item auf der Taskbar einen anderen Titel bekommt. Problematik bleibt jedoch bestehen.

[himitsu]

Delphi-Quellcode:

Application.Initialize;
Application.MainFormOnTaskbar := True;
...
Application.CreateForm(...);  // 1. = MainForm
Application.CreateForm(...);

Seit Vista hat sich da so einiges geändert -> AeroPeak und Co.

Dann sollte in der Taskleiste besser die Hauptform sein.
* False = das unsichtbare Application.Handle ist in der Taskleiste
* True = Mainform.Handle ist dort als Button

[DonManfred]

Vielen Dank nochmal an alle die Hinweise gegeben haben!

Nachdem ich nun auch Delphi auf 10.4 upgegradet habe sind alle vorhandenen Probleme behoben.
Der Umbau auf 10.4 hat zwar auch nochmal ein paar weitere Tage Umbauarbeiten gekostet aber jetzt scheint alles zu laufen.