Eingabeinterface kurzeitig sperren (Maus+Tastatur)

[Whookie]

Ich habe ein Programm, das eine große Menge Daten auf Platte schreiben muss. Das kann zwischen 30sec und 10min dauern und während dieser Zeit soll der Anwender nur einen Fortschrittsbalken in der Statuszeile sehen, aber das Programm nicht mehr bedienen können (ausser das Fenster verschieben, minimieren, maximieren, beenden).

Leider habe ich bisher keine Möglichkeit gefunden das einfach umzusetzen.

Was ich jetzt mache ist eine eigene Form in der ein TProgressBar liegt. Die Form hat keine Border und wird zur Laufzeit an der Position der Statusbar mit ShowModal ausgegeben. Das kommt dem was ich machen will schon recht nahe hat aber den Nachteil, dass ich das Fenster der Applikation nicht mehr verschieben/minimieren kann.

Gibt es sonst eine Möglichkeit die Eingabe an mein Programm für diesen Zeitraum zu sperren?

TIA
Whookie

[Sherlock]

Du könntest in einer Schleife alle Controls disablen.

Sherlock

[Meflin]

Wenn es um so lange Zeitspannen geht, gehört sich das Programmfenster m.E. komplett ausgeblendet. Die Fortschrittsanzeige packst du in eine extra Form (zusammen mit der Abbrechen-Funktion ;) ) und die wird angezeigt während der Vorgang läuft und sonst nix.

Nur so als Anregung.

[_frank_]

Zitat:

Zitat von Sherlock

Du könntest in einer Schleife alle Controls disablen.

oder alle controls auf ein panel (align=alClient) und dieses disablen.
spart die Schleife :)

Gruß Frank

[mr_emre_d]

Form1.Enabled := False; ??

[_frank_]

Zitat:

Zitat von mr_emre_d

Form1.Enabled := False; ??

dann kannst das form nicht mehr verschieben/minimieren

Gruß Frank

[Cyberbob]

Lass dir per findcomponent alle Controls geben und deaktiviere sie!

Oder einfacher: alle Controls auf ein Panel legen, dass sich über die gesamte form erstreckt und dann das Panel Enabled := False setzen, nicht die Form!

[Florian H]

Zitat:

Zitat von Cyberbob

Lass dir per findcomponent alle Controls geben und deaktiviere sie!

Oder einfacher: alle Controls auf ein Panel legen, dass sich über die gesamte form erstreckt und dann das Panel Enabled := False setzen, nicht die Form!

Öh.. nette Zusammenfassung aller bisherigen Postings :gruebel:


@Threadersteller: Würde es als Anwender auch bevorzugen, wenn die Anwendung dann von sich aus komplett verschwindet ... ich käme wohl auch gar nicht auf die Idee, eine arbeitende Anwendung zu minimieren, weil das in 90% der Fälle ja eh nicht möglich ist :/

[_frank_]

Zitat:

Zitat von Cyberbob

Lass dir per findcomponent alle Controls geben und deaktiviere sie!

zumal findcomponent dafür bisschen ungünstig ist...warum nicht das Controls-Property des forms zu nehmen (ggf. rekursiv).

Gruß Frank

[mr_emre_d]

Zitat:

Zitat von _frank_

Zitat:

Zitat von mr_emre_d

Form1.Enabled := False; ??

dann kannst das form nicht mehr verschieben/minimieren

Gruß Frank

Dann soll er alles auf n Panel packen und Panel1.Enabled := False - setzen

MfG

[Meflin]

Zitat:

Zitat von mr_emre_d

[Dann soll er alles auf n Panel packen und Panel1.Enabled := False - setzen

Gut, dass dus NOCHMAL widerholt hast :lol:

[mleyen]

Nennt man sowas nicht auch "schmuddelprogrammierung"? :smile2:

Hier hatte ich mir damals auch was zusammengeschrieben:

Delphi-Quellcode:

{*----------------------------------------------------------------------------------------
De/-aktiviert alle Controls im übergebenem TWinControl

@Comment Aufgrund der Darstellung geh ich rekursiv durch alle Untercontrols durch
@Param Win Alles hierdrin wird disabled
       Enable Aktivieren/Deaktivieren
----------------------------------------------------------------------------------------*}
procedure EnableCntrls(const Win: TWinControl; const Enable: Boolean = true);
var
  i: Integer;
begin
  for i := 0 to Win.ControlCount - 1 do
  begin
    Win.Controls[i].Enabled := Enable;
    if Win.Controls[i] is TWinControl then
      EnableCntrls(TWinControl(Win.Controls[i]), Enable);
  end;
end;

Jetzt brauchst du nur noch wiefolgt aufufen:

Delphi-Quellcode:

EnableCntrls(Self, false);

[mr_emre_d]

Zitat:

Zitat von Meflin

Zitat:

Zitat von mr_emre_d

[Dann soll er alles auf n Panel packen und Panel1.Enabled := False - setzen

Gut, dass dus NOCHMAL widerholt hast :lol:

xD hab ja nicht alles gelesen :) bin bis zu der Aussage gekommen, dann dacht ich mir, dass ich gleich antworte :P

MfG und sorry

[mirage228]

Ich packe da mal noch meine Funktion aus der Code-Library zu ;-)
Alle Subcontrols eines Controls dis- / enablen

Viele Grüße

[Whookie]

Erst mal danke für die vielen Hinweise!

Ich habe mir natürlich auch einige Gedanken darüber gemacht, wie sowas umgesetzt werden könnte.

Disablen aller Controls (= Menü, Toolbars, Hauptform) ist eine Möglichkeit, die ich nicht Erwägung gezogen hatte, sie hat halt den Nachteil, das dann alles "grau" wird, was unschön sein könnte.

Ein Programm das eben mal verschwindet, weil das Speichern länger dauert (und dann eventuell auch noch selber wieder aus der Versenkung auftaucht) finde ich allerdings noch viel schlimmer. Ein Bild von meinem Programm Design habe ich angehängt.

Vorstellen könnte ich mir auch, einen Dialog der Modal über dem Programm liegt und ähnlich dem Kopieren-Dialog in Windows eine Animation + Fortschrittsbalken bietet und so das Programm "legal" sperrt. Ist aber auch ned so schön, wenn sowas nach dem "Speichern"-Dialog aufpoppt ...

Eine weitere Option wäre es einen "Screenshot" vom aktuellen Programm zu machen, die eigentliche Form zu verstecken und eine "Dummy-Form" mit dem Bild + Fortschrittsbalken anzuzeigen (so macht Windows das mit Programmen die sich nicht mehr melden)... naja ... irgendwie auch nicht schön?

Gibt es dazu noch Meinungen?

LG
Whookie

[mr_emre_d]

Zitat:

Zitat von Whookie

Disablen aller Controls (= Menü, Toolbars, Hauptform) ist eine Möglichkeit, die ich nicht Erwägung gezogen hatte, sie hat halt den Nachteil, das dann alles "grau" wird, was unschön sein könnte.

wenn du alles auf ein panel klatscht und es disablest, werden die Controls nicht grau angezeigt

Demodino im Anhang

MfG

[Whookie]

Das mit dem Panel sieht nicht schlecht aus, nur das Hauptmenü bleibt davon leider ausgeschlossen ...

[_frank_]

du könntest das Hauptmenü zeitweise entfernen (form.menu:=nil;) und danach wieder zuweisen.

für den rest wäre evtl auch noch eine Möglichkeit, wie vorher gesagt alles auf ein Panel, dieses aber verstecken (panel.Visible:=false;). hätte den vorteil, dass man das fenster noch normal bedienen kann, aber die Aktionscontrols nicht bedienbar sind. an der Stelle wo das Panel war kannst du ein anderes Panel einblenden, was deinen Fortschrittsbalken und ggf. weitere Infos, eine Grafik oder Animation anzeigt.

Gruß Frank