Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#5

AW: Programm reagiert nicht - Windows-Test?

  Alt 31. Mär 2012, 12:35
... 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.

Geändert von sx2008 (31. Mär 2012 um 12:38 Uhr)
  Mit Zitat antworten Zitat