Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#6

Re: Minimieren verhindern bei [Win]+[D] und [Win]+[M]

  Alt 8. Okt 2004, 13:47
Ist im Grunde genommen das Selbe

[win]+D = show Desktop
[win]+M = Minimize all

Delphi-Quellcode:
Interface
  Type TForm0 = Class(TForm)
      Procedure FormCreate(Sender: TObject);
    Private
      Procedure FormMinimize(Sender: TObject);
      Procedure FormRestore(Sender: TObject);
    End;

Implementation
  {$R *.dfm}

  Procedure TForm0.FormCreate(Sender: TObject);
    Begin
      Application.OnMinimize := FormMinimize;
      Application.OnRestore := FormRestore;
    End;

  Procedure TForm0.FormMinimize(Sender: TObject);
    Begin
      //wurde minimiert
    End;

  Procedure TForm0.FormRestore(Sender: TObject);
    Begin
      //wurde wuederhergestellt
    End;

End.
weiteres siehe ... einfach mal in deinem Programm "Application." eingeben
$2B or not $2B
  Mit Zitat antworten Zitat