Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Ist Programm minimiert / in der Taskleiste?

  Alt 10. Jun 2006, 09:44
Zitat von Heffalump:
Also ich würde das ganze nicht ganz so kompliziert machen. ...
Wenn es doch "kompliziert" sein soll
Delphi-Quellcode:
  private
    myWindowState: TWindowState;
    procedure OnMinimize(Sender: TObject);
    procedure OnRestore(Sender: TObject);
  public
    { Public-Deklarationen }

  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

uses
  IniFiles;

procedure TDemoForm.FormCreate(Sender: TObject);
var
  ini: TIniFile;
begin
  Application.OnMinimize := OnMinimize;
  Application.OnRestore := OnRestore;
  ini := TIniFile.Create('c:\test.ini');
  try
    myWindowState := TWindowState(ini.ReadInteger('system', 'windowstate', 0));
  finally
    ini.Free;
  end;
  self.WindowState := myWindowState;
end;

procedure TDemoForm.FormDestroy(Sender: TObject);
var
  ini: TIniFile;
begin
  ini := TIniFile.Create('c:\test.ini');
  try
    ini.WriteInteger('system', 'windowstate', Ord(myWindowState));
  finally
    ini.Free;
  end;
end;

procedure TDemoForm.OnMinimize(Sender: TObject);
begin
  myWindowState := wsMinimized;
end;

procedure TDemoForm.OnRestore(Sender: TObject);
begin
  myWindowState := wsNormal;
end;
Stephan B.
  Mit Zitat antworten Zitat