Eingabeinterface kurzeitig sperren (Maus+Tastatur)

[mleyen]

Nennt man sowas nicht auch "schmuddelprogrammierung"?

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:
EnableCntrls(Self, false);