SysTray Program minimieren / wiederherstellen

[TUX_der_Pinguin]

Ich habe mit Delphi 2007 ein kleines Tool gebastelt welches ins SysTray soll, dank der fertigen Komponente (TTrayIcon)
funktioniert das ansich auch recht gut, jetzt habe ich im OnCreate Ereignis gesagt er solle das Hauptformular ausblenden.
Klickt man jetzt in einem Kontextmenü des TrayIcons auf "Wiederherstellen" so soll das Formular wieder angezeigt werden
( pmiRestoreClick ) auch das klappt wunderbar, will ich jedoch das Fenster wieder minimieren passiert gar nichts
ich kann so oft auf den "Button" für minimieren klicken wie ich will, es passiert nichts. Klicke ich jedoch kurz auf den Desktop
so das mein Program den Focus verliert und dann auf Minimieren, verschwindet das Programm sofort in die Taskleiste.
Durch ein "Hide" im OnResize lasse ich dadurch das Fenster komplett verschwinden so das kein Task mehr in der Taskleiste stehen
bleibt, was auch klappt.

Nur das erste mal minimieren nach Programm start, bzw. dem ersten "Wiederherstellen" des Fensters will nicht klappen.
Hat vielleicht jemand von euch eine Idee was das soll, Betriebssystem ist Windows XP Prof. SP2 das Programm ist wie bereits
oben erwähnnt in Delphi 2007 for Win32 R2 geschrieben.

Delphi-Quellcode:

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, StdCtrls, ImgList, ComCtrls;

type
  TfrmMain = class(TForm)
    TrayIcon: TTrayIcon;
    PopupMenu: TPopupMenu;
    pmiSettings: TMenuItem;
    pmiClose: TMenuItem;
    pmiInfo: TMenuItem;
    N2: TMenuItem;
    N1: TMenuItem;
    Icons: TImageList;
    pmiRestore: TMenuItem;
    StatusBar1: TStatusBar;
    MainMenu: TMainMenu;
    mmiProgram: TMenuItem;
    mmiInfo: TMenuItem;
    mitAbout: TMenuItem;
    mitClose: TMenuItem;
    N4: TMenuItem;
    mitSettings: TMenuItem;
    N5: TMenuItem;
    mitControlProg: TMenuItem;
    pmiControlProg: TMenuItem;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    procedure pmiRestoreClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure mitCloseClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frmMain: TfrmMain;

implementation

uses uSettings, uAbout, uGlobal;

{$R *.dfm}


procedure TfrmMain.pmiRestoreClick(Sender: TObject);
begin
  WindowState := wsNormal;     //Fenster Status auf normal setzen
  Show;              //Fenster anzeigen

end;


procedure TfrmMain.FormCreate(Sender: TObject);
begin
  WindowState := wsMinimized;     //Fenster minimieren
  Hide;                   //Fenster ausblenden

end;


procedure TfrmMain.FormResize(Sender: TObject);
begin
  if frmMain.WindowState = wsMinimized then frmMain.Hide;
end;


procedure TfrmMain.mitCloseClick(Sender: TObject);
begin
  Close;
end;


end.

[TUX_der_Pinguin]

Ich hab schon ein paar sachen versucht, aber ich zerbrech mir grade den Kopf warum dieser Effekt auftritt und wie ich
das abstellen kann. Das Prog läßt sich nach Start beim ersten Wiederherstellen nicht über den Button "Minimieren" minimieren.



Klicke ich jedoch kurz ein anderes Fenster an und dann wieder das vom Programm, zack läßt es sich problemlos minimieren.

[DeddyH]

Und so?

Delphi-Quellcode:

procedure TfrmMain.FormResize(Sender: TObject);
begin
  if {frmMain.}WindowState = wsMinimized then {frmMain.}Hide;
end;

[TUX_der_Pinguin]

Hmm das scheint nicht am minimieren selbst zu liegen, das Funktioniert ja.

Desweiteren benutze ich jetzt das Ereignis Application.OnMinimized, um das Formular kompl.
auszublenden. Es klappt ja nur beim ersten mal nicht. Ich vermute eher es liegt daran
das Fenster wieder zum vorschein zu bringen.

Delphi-Quellcode:

  WindowState := wsNormal;     //Fenster Status auf normal setzen 
  Show;                        //Fenster anzeigen 

  SetForeGroundWindow(frmMain.Handle)

Komisch ist halt, das er das nur nach Programmstart macht, sobald ich einmal erfolgreich das Fenster minimiert habe,
kann ich es beliebig oft "wiederherstellen" und minimieren.

Ich hatte schon überlegt beim Wiederherstellen, kurz das Fenster zu deaktivieren und anschließend gleich wieder zu aktivieren,
habe aber bisher nichts gefunden wie ich das bewerkstellige.

[Der.Kaktus]

Zitat von TUX_der_Pinguin:

Hmm das scheint nicht am minimieren selbst zu liegen, das Funktioniert ja.

Desweiteren benutze ich jetzt das Ereignis Application.OnMinimized, um das Formular kompl.
auszublenden. Es klappt ja nur beim ersten mal nicht. Ich vermute eher es liegt daran
das Fenster wieder zum vorschein zu bringen.

Delphi-Quellcode:

  WindowState := wsNormal;     //Fenster Status auf normal setzen 
  Show;                        //Fenster anzeigen 

  SetForeGroundWindow(frmMain.Handle)

Komisch ist halt, das er das nur nach Programmstart macht, sobald ich einmal erfolgreich das Fenster minimiert habe,
kann ich es beliebig oft "wiederherstellen" und minimieren.

Ich hatte schon überlegt beim Wiederherstellen, kurz das Fenster zu deaktivieren und anschließend gleich wieder zu aktivieren,
habe aber bisher nichts gefunden wie ich das bewerkstellige.

Warum nutzt die nicht die RX-Lib?..da iss das drin!

[TUX_der_Pinguin]

Zitat von Der.Kaktus:

Warum nutzt die nicht die RX-Lib?..da iss das drin!

Von der Lib hab ich noch nie was gehört, naja und nur wegen dem "kleinen" Fehler das ganze Programm auf eine neue Komponente
umschreiben, halte ich zur zeit für etwas übertrieben. Mal schauen irgendwas lasse ich mir schon einfallen.

[Wil]

Hatte heute das gleiche Problem. Hier ist die Lösung beschrieben.

Delphi-Quellcode:

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
        Form1.Show;
        Application.Restore;
        Application.BringToFront;
end;

[TUX_der_Pinguin]

Vielen dank für den Tipp, jetzt funktioniert alles einwandfrei.