Seltsamer Fehler beim schließen

[Satyr]

Ich habs nur für den close benutzt. Im Grunde nur zur reinen Übersichtlichkeit, für mich war der Code so strukturierter zu lesen.

Kurz dachte ich das Problem könnte der Wechsel der Systemcursor sein. Ausbauen davon hat aber leider nichts gebracht *grummel*.
Schlicht unterdrücken kann man das nicht, oder? Ich weiß, ist dirty. Ich meine auch nur zum testen. Mit TApplicationEvents habe ich ein Abfangen versucht, ohne Erfolg. Wohl weil es ein Fehler ohne konkrete Fehlernummer ist.

@humitsu
Die NT Schiene habe ich zum programmieren ausgelassen, Vista auch. Ins Programmverzeichnis habe ich aber schon vorher nur sehr ungern geschrieben. Ich hab da einiges verpennt, ja.

[Perlsau]

Durch deine Verwendung von Form1 innerhalb der Klasse TForm1 entstand – zumindest bei mir – die Vermutung, daß dir noch weitere ähnliche Fehler unterlaufen sein könnten. Da es den durchaus hilfsbereiten Usern dieses Forums jedoch bislang verwehrt bleibt, deinen streng geheimen Code auf gewisse Verdächtige zu untersuchen, ist das Problem leider kaum lösbar. Anders ausgedrückt: Der einzige, der den Code durchforsten kann, um zu schauen, ob ihm was auffällt oder wo der Hase im Pfeffer liegen könnte, bist du. Wir können hier eigentlich nur dumm rumraten

[jaenicke]

Du könntest im Projektquelltext nach dem Run einmal eine MessageBox einbauen, dann alle Formulare freigeben und dann wieder eine MessageBox einbauen.
So findest du heraus, ob das Problem bei der Freigabe der Formulare entsteht.

[Satyr]

@Perlsau
Ihr ratet sicherlich nicht "dumm" herum, sondern wesentlich schlauer als ich es könnte .
Mein Quellcode ist im Grunde nicht geheim. Nur weiß ich nicht welcher Teil für Euch interessant wäre und ob mein Cheff das mag, wenn ich Code herumreiche...

@jaenicke
Danke für den Tipp, ich versuchs mal!

[himitsu]

NT ist alles seit NT, also auch bis Windows 8. (man könnte ja denken, daß die Entwickler sich in den letzen 20 Jahren hätten daran gewöhnen können)

Der Metro-Teil ist die neue RT-Schiene (Architektur/API), welchen es auch einzeln gibt (für ARM-CPUs).


Davor gab es vorallem die 3.1-Schiene (16 Bit > 1.x bis 3.x) und dann die 9x-Schiene (32 Bit DOS). Mit ME den 9x/NT-Mischmasch und nebenbei gab es noch CE und Mobile/Phone.

[Sir Rufo]

Zitat von Satyr:

Ich habs nur für den close benutzt. Im Grunde nur zur reinen Übersichtlichkeit, für mich war der Code so strukturierter zu lesen.

Dann solltest du korrekterweise Self.Close nehmen, denn Self (in einer Methode) ist immer der Verweis auf die aktuelle Instanz.

Im Gegensatz dazu ist Form1 der Verweis auf eine Instanz, die dort irgendwann mal von wem auch immer reingeschrieben wurde. Du kannst dir aber niemals sicher sein, dass das auch der Verweis auf die aktuelle Instanz ist, bei Self ist das per Definition immer so.

[Satyr]

Danke für die Hinweise und Tipps .

Also eine MessageBox nach Run wird beim Beenden von dem Programm angezeigt. Nun weiß ich aber nicht genau wo ich die Formulare per Hand freigeben soll.

Es könnte trotzdem sein das ich hier irgendwo etwas falsch mache. Ich habe das für eine SplashScreen ein wenig umgebaut, die Anleitung fand ich damals per Google. Hier der Code:

Delphi-Quellcode:

program Conceptor;

uses
  madExcept,
  madLinkDisAsm,
  madListHardware,
  madListProcesses,
  madListModules,
  Forms,
  sysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {SplashScreen},
  Unit3 in 'Unit3.pas' {notepad},
  func in 'func.pas';

{$R *.res}

begin


Application.Initialize;
Application.Title := 'Conepter';

SplashScreen := TSplashScreen.Create(nil);
SplashScreen.Show;

application.ProcessMessages;
Sleep(1000);


  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(Tnotepad, notepad);


  Application.Run;
end.

[himitsu]

Application.Title := 'Conepter'; C?

Du könntest nach dem Application.Run mal ein FreeAndNil(Application) reinmachen und danach noch eine MessageBox.
Oder erstmal nur FreeAndNil(Form1); FreeAndNil(notepad); nach dem Run.

Bzw. über Screen.CustomForms alle Fenster auflisten und Diese freigeben.


Als allererste Unit in der DPR eine Unit aufnehmen, die nur Windows einbindet (im Interface) und in Finalization eine MessageBox anzeigt.


Wer gibt eigentlich den SplashScreen wieder frei?

[Satyr]

Hm! Also das hier:

Delphi-Quellcode:

  Application.Run;

  FreeAndNil(Form1); FreeAndNil(notepad);
  Application.MessageBox('test', 'Test');

zeigt die Message an wenn ich das in Delphi rennen lasse, nicht aber auf dem Rechner mit Fehler. Da kommt nur wieder der Fehler und das wars.

Wenn ich dann die Formulare einzeln durchgehe, liegt der Fehler dann im Formular?

Edit: Den SplashScreen gebe ich in Form1 frei.

[himitsu]

Eine MessageBox noch zwischen die beiden Fenster und auch mal die Reihenfolge (der Free) tauschen
und schon weißt du bei welchem Form es hängt.

Das kann nun ein Code im OnDestroy sein oder eine der Komponenten.


PS: hier muß man aufpassen, denn wenn die Fenster schon vorher freigegeben wurden, dann steht in der Variable eine falsche Referenz, da normalerweise keiner diese Variablen freigibt, da sie keiner mehr kennt ... drum hatte ich auch das FreeAndNil verwendet, damit danach die Variable auch nil ist, denn dann knallt es "schöner", falls nochmal wer auf diese Variable zugreift.