Formular Position speichern, Generell wenn geschlossen wird oder bei ModalResult mrOK

[dataspider]

Hi

Ich finde es nützlich, die NormalPosition zu sichern und den State und zu prüfen, ob das Formular außerhalb des Screen ist.

ich habe dazu einen Form - Helper (Anlage).

Aufruf dann (z.B. in Datei speichern, bei mir landet das in der DB):

Delphi-Quellcode:

procedure TfrmMain.AfterConstruction;
Var
  AStream: TMemoryStream;
begin
  inherited;
  AStream := TMemoryStream.Create;
  try
    if FileExists(SFsBin) then
    begin
      AStream.LoadFromFile(SFsBin);
      LoadFormState(AStream);
    end;
  finally
    AStream.Free;
  end;
end;

procedure TfrmMain.BeforeDestruction;
Var
  AStream: TMemoryStream;
begin
  AStream := TMemoryStream.Create;
  try
    SaveFormState(AStream);
    AStream.SaveToFile(SFsBin);
  finally
    AStream.Free;
  end;
  inherited;
end;

Nicht vergessen: frm.Helper in Uses

Ist jetzt zwar mit Stream, aber das Prinzip ist sicher erkennbar.

Frank

[a.def]

Guck mal hier. So kann man auch auf außerhalb-des-sichtbaren-Bereichs prüfen.

Delphi-Quellcode:

procedure checkFormPosition(aFormToSetPos: TForm);
begin
 if Screen.MonitorFromWindow(aFormToSetPos.Handle, mdNull) = nil then
  begin
   // Form is outside of any monitor. Move to center of main monitor
   aFormToSetPos.Top := (Screen.Monitors[0].Height - aFormToSetPos.Height) div 2;
   aFormToSetPos.Left := (Screen.Monitors[0].Width - aFormToSetPos.Width) div 2;
  end;
end;

[a.def]

Ich zitiere mich mal einfach selber. Man braucht kein Alt+Space und all den Quark
Die Alt+Space-Geschichte ist rein theoretisch jedem zuzutrauen. Wer es aber kennt und anwenden kann, ist die andere Frage. Ich gehe von einem Prozentsatz von <25 aus.

Zitat von a.def:

Guck mal hier. So kann man auch auf außerhalb-des-sichtbaren-Bereichs prüfen.

Delphi-Quellcode:

procedure checkFormPosition(aFormToSetPos: TForm);
begin
 if Screen.MonitorFromWindow(aFormToSetPos.Handle, mdNull) = nil then
  begin
   // Form is outside of any monitor. Move to center of main monitor
   aFormToSetPos.Top := (Screen.Monitors[0].Height - aFormToSetPos.Height) div 2;
   aFormToSetPos.Left := (Screen.Monitors[0].Width - aFormToSetPos.Width) div 2;
  end;
end;

[Slipstream]

Nein, da hast du was falsch verstanden. Deiner Methode in Delphi, das Erscheinen eines Formulars ausserhalb eines gültigen Bildschirmbereichs zu vermeiden, wollte ich auf keinen Fall widersprechen, das ist sinnvoll und richtig. Mir ging es nur darum zu zeigen, dass es für einen normalen Windows-Benutzer einfacher ist, mit Alt-Space (und das ist kein Quatsch, das ist ein sinnvolles Feature von Windows) eine Anwendung in den sichtbaren Bereich zu verschieben, anstatt in irgend einer Ini-Datei herumzufurwerkeln und die Struktur der Ini am Ende noch zu zerstören.

[rokli]

Moin!

Das "herumfummeln" in der INI gehört genauso zu den Dingen, die aus der EDV Abteilung gemacht werden, wie die Windows Tastenkombinationen zu kennen, die Du, Slipstream, da genannt hast. Den Prozentsatz der Anwender, die das wissen, würde ich eher wesentlich kleiner als die genannten 25 % einschätzen.

Da ist die Lösung CheckFormPosition von a.def ja viel, viel besser.

@Otto: Warum sollte man das verbieten?

Gruß

[DeddyH]

Zitat von rokli:

@Otto: Warum sollte man das verbieten?

Der vorgesehene Pfad für (installierte) Programme liegt ja im Programme-Ordner. Da hat der Normalbenutzer aber standardmäßig keine Schreibrechte, von daher wird das so nicht funktionieren. Die bessere Option wäre APPDATA bzw. COMMON_APPDATA, diese Verzeichnisse lassen sich ja ermitteln.

[mm1256]

Zitat von rokli:

@Otto: Warum sollte man das verbieten?

Hallo Rolf,

Detlef hat das ja schon beantwortet. Doch das alleine ist es nicht, was mich an dem Beispiel etwas gestört hat.

1) Code-Optimierung: Sobald man mehrfach auf irgend etwas zugreift, in diesem Fall den Namen der INI-Datei, gehört sich dieser Teil ausgelagert. Hintergrund: Wenn man etwas ändert will/muss, dann macht man das an einer einzigen Stelle, und neben nicht an mehreren Stellen. Womöglich vergisst man dann was, und schon wundert man sich im Idealfall selber, im schlimmsten Fall der Kunde, dass irgendwas nicht funktioniert. Darum als Vorschlag mal die erste Optimierung:

Delphi-Quellcode:

function GetIniFileName: string;
begin
  Result := IncludeTrailingBackslash(UserDatenDirectory)+'MeinIniName.ini';
end;

procedure IniLesen;
begin
  With TIniFile.Create(GetIniFileName) do
  try
    // Werte lesen
  finally
    Free;
  end;
end;

procedure IniSchreiben;
begin
  With TIniFile.Create(GetIniFileName) do
  try
    // Werte schreiben
  finally
    Free;
  end;
end;

2) Code-Design: Die Werte für Top, Left, Width und Height eines Formulares setzt man nicht einzeln. Dazu verwendet man

Code:

SetBounds()

Warum ist das besser? Wenn man im Formular z.B. einen OnResize-Event hat, der schlimmstenfalls eine Positions-Neuberechnung vieler Komponenten durchführt, dann wird dieser mehrfach ausgelöst, wenn man die Werte einzeln setzt. Wenn man aber SetBounds nimmt, wird der Event nur einmal ausgelöst.

Beispiel um das nach zu vollziehen:

Delphi-Quellcode:

procedure TFrmTest.Button1Click(Sender: TObject);
begin // FormResize wird mehrfach ausgelöst
  Top := Top - 10;
  Left := Left - 10;
  Width := Width + 10;
  Height := Height + 10;
end;

procedure TFrmTest.Button2Click(Sender: TObject);
begin // FormResize wird nur einmal ausgelöst
  Self.SetBounds(Left-10, Top-10, Width+10, Height+10);
end;

procedure TFrmTest.FormResize(Sender: TObject);
begin
  Memo1.Lines.Add(DateTimeToStr(Now)+': FormResize wurde ausgelöst');
end;

Das alles ist jetzt nichts großartiges, sondern eher das kleine 1x1 der Grundausbildung (ich hab noch keine UNI von innen gesehen und mir alles selber bei gebracht) aber wenn man schon Beispiele angibt, dann sollte man es meiner Meinung nach richtig machen und sich der Verantwortung bewusst sein: Hier lesen viele mit, die von den Beispielen etwas lernen wollen/sollen/müssen.

Das ist jetzt keine Meckerei, ich will auch niemandem zu nahe treten, also versteht mich nicht falsch. Mir ging es ja auch schon so. Ich hab Beispiele meines Codes veröffentlicht, und bin dafür gesteinigt worden. Aber nur dadurch lernt man dazu. Also positiv denken

[rokli]

Hi Kidi,

ich verwende 2 Proceduren, mit denen ich die Werte in INI-Dateien schreibe (neben all den anderen Werten, die man so braucht):

Delphi-Quellcode:

procedure TfrmMain.p_IniRead;
{-------------------------------------------------------------------------------
   INI Datei einlesen
-------------------------------------------------------------------------------}
var
   Ini      : TIniFile;
begin
   Ini      := TIniFile.Create(ChangeFileExt( Application.ExeName, '.INI' ) );
   try
      Top       := Ini.ReadInteger( 'Windows Form Settings', 'Top', 100 );
      Left       := Ini.ReadInteger( 'Windows Form Settings', 'Left', 100 );
      Height    := Ini.ReadInteger( 'Windows Form Settings', 'Height', 100);
      Width    := Ini.ReadInteger( 'Windows Form Settings', 'Width', 100);
      if Ini.ReadBool( 'Windows Form Settings', 'InitMax', false ) then
         WindowState          := wsMaximized
      else
         WindowState          := wsNormal;
   finally
      Ini.Destroy;
   end;
end;

procedure TfrmMain.p_IniWrite;
{-------------------------------------------------------------------------------
   INI Datei wegschreiben
-------------------------------------------------------------------------------}
var
   Ini      : TIniFile;
begin
   Ini       := TIniFile.Create(ChangeFileExt( Application.ExeName, '.INI' ) );
   try
      Ini.WriteDateTime('Userdata', 'LastLogOut', now());
      Ini.WriteInteger( 'Windows Form Settings', 'Top', Top);
      Ini.WriteInteger( 'Windows Form Settings', 'Left', Left);
      Ini.WriteInteger( 'Windows Form Settings', 'Height', Height);
      Ini.WriteInteger( 'Windows Form Settings', 'Width', Width);
      Ini.WriteBool(    'Windows Form Settings', 'InitMax', WindowState = wsMaximized );
   finally
      Ini.Destroy;
   end;
end;

Den p_IniRead lese ich im OnCreate der Form und den p_IniWrite führe ich im OnClose aus. Und wenn Du die Positionen von weiteren Fenstern benötigst, dann erweiterst Du dir das entsprchend.

[rokli]

Ein großer Vorteil einer Ini-Datei ist, dass man ganz einfach z. B. den Form1.LEFT Wert ändern kann, und damit bei einer 2-Schirm Lösung das Programm von einem Bildschirm auf den anderen schieben kann, auch dann wenn man die Form nach dem Programmstart nicht sieht, weil sie außerhalb des Bildschirmes gelandet ist.

[HolgerX]

Hmm..

@rokli

Und wenn Du mehr wie ein Formular speichern wills:

Delphi-Quellcode:

procedure FromProp_IniRead(AForm : TCustomForm);
// INI Datei einlesen
var
  Ini : TIniFile;
  tmpFormName : string;
begin
  Ini      := TIniFile.Create(ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    tmpFormName  := AForm.Name;
    AForm.Top    := Ini.ReadInteger(tmpFormName, 'Top',    AForm.Top );
    AForm.Left   := Ini.ReadInteger(tmpFormName, 'Left',   AForm.Left );
    AForm.Height := Ini.ReadInteger(tmpFormName, 'Height', AForm.Height);
    AForm.Width  := Ini.ReadInteger(tmpFormName, 'Width',  AForm.Width);
    if Ini.ReadBool( tmpFormName, 'InitMax', false ) then
      AForm.WindowState          := wsMaximized
    else
      AForm.WindowState          := wsNormal;
  finally
    Ini.Destroy;
  end;
end;

procedure FromProp_IniWrite(AForm : TCustomForm);
// INI Datei wegschreiben
var
  Ini : TIniFile;
  tmpFormName : string;
begin
  Ini       := TIniFile.Create(ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    tmpFormName := AForm.Name;
    Ini.WriteInteger(tmpFormName, 'Top',    AForm.Top);
    Ini.WriteInteger(tmpFormName, 'Left',   AForm.Left);
    Ini.WriteInteger(tmpFormName, 'Height', AForm.Height);
    Ini.WriteInteger(tmpFormName, 'Width',  AForm.Width);
    Ini.WriteBool(tmpFormName, 'InitMax', AForm.WindowState = wsMaximized );
  finally
    Ini.Destroy;
  end;
end;