Programm reagiert nicht - Windows-Test?

[sx2008]

Zitat von himitsu:

... es besser, alles abzusuchen und überall z.B. die Buttons zu deaktivieren...

Vielleicht ist das gar nicht so schwer wie es im ersten Moment aussieht.
Man bräuchte eine Klasse (abgeleitet von TComponent) mit 2 Methoden: FreezeUI() und UnfreezeUI().

Delphi-Quellcode:

Freezer1.IgnoreControl := ButtonStop;
Freezer1.FreezeUI;
try
  MachWasDasSehrLangeDauertUndDerBenutzerNichtUnterbrechenDarf;
finally
  Freezer1.UnfreezeUI;
end;

Beim Einfrieren werden in einer Schleife alle Komponenten des Owners (=das Formular) durchgegangen.
Dabei wird geprüft:
TButton? TSpeedButton? TToolbar? TCoolbar? TMainMenu?
Visible? Enabled?
Alle gefundenen Komponenten, die Visible und Enabled sind werden in eine ObjectList eingetragen
und anschliesend wird das Property Enabled auf False gesetzt.
Dabei macht man sich zunutze, dass Enabled und Visible ab der Klasse TControl vorhanden sind.
Sollte die Komponente gleich dem IgnoreControl sein, dann findet das aber nicht statt.

Beim Auftauen braucht man nur noch die Objectliste durchgehen und für jede Komponente das Property Enabled wieder auf True zu setzen.

Ich denke, man könnte diese Freeze-Komponente in 0,5 bis 1 Stunde programmieren und es braucht vielleicht noch 2-3 Tage mehr bis man alles entdeckt hat was ich hier vergessen habe.