AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Fensterposition persistent machen

Ein Thema von Codehunter · begonnen am 30. Mär 2018 · letzter Beitrag vom 31. Mär 2018
Antwort Antwort
Seite 1 von 3  1 23   
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
1.766 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Fensterposition persistent machen

  Alt 30. Mär 2018, 18:12
Hallo!

Ich habe grad sowas wie ein Anfängerproblem bzw. steh wohl auf dem Schlauch ^^

Ich möchte die Größe, Position und WindowState eines Forms in einer Ini speichern und beim Programmstart wiederherstellen. Das Speichern klappt wunderbar, nur beim Wiederherstellen gibts Probleme. Zwar kann ich die gespeicherten Werte korrekt auslesen. Das mache ich im OnCreate des MainForm. BoundsRect und WindowState lassen sich hier problemlos setzen, aber nicht Left und Top. Die werden ignoriert und im Anschluss durch die Werte überschrieben, die in der DFM hinterlegt sind bzw. falls Position = poScreenCenter eingestellt ist, dann wird das Fenster zentriert.

Eigentlich müsste ja schon das Zuweisen vom BoundsRect die Position verändern, aber auch da wird Left und Top ignoriert und wieder überschrieben. Selbst wenn ich das Zuweisen von Left und Top später mache, z.B. in einem OnShow/WM_AFTERSHOW-Konstrukt, ändert sich an dem Problem nichts. Wie lässt sich das lösen?

Grüße
Cody
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber.
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
6.792 Beiträge
 
Delphi XE4 Professional
 
#2

AW: Fensterposition persistent machen

  Alt 30. Mär 2018, 18:24
Hallo,
Formactivate?
Heiko
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
4.855 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Fensterposition persistent machen

  Alt 30. Mär 2018, 18:24
Ohne es ausprobiert zu haben: Versuche doch als letztes noch einmal OnActivate statt OnShow .
  Mit Zitat antworten Zitat
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
1.766 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

AW: Fensterposition persistent machen

  Alt 30. Mär 2018, 18:37
Doppelt hält in dem Fall auch nicht besser. Wird dort genauso wieder überschrieben. Wenn ich ein ShowMessage an der Stelle einbaue, so rein zu Testzwecken WANN das Ereignis kommt, dann erscheint das Meldungsfenster immer noch bevor das Hauptfenster erscheint. Daher vermute ich, dass es auf die Zuweisung von Left und Top immer noch nicht spät genug erfolgt.
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber.
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
927 Beiträge
 
Delphi 7 Professional
 
#5

AW: Fensterposition persistent machen

  Alt 30. Mär 2018, 18:45
Das funtioniert nur, wenn Position auf poDesigned steht.

Dann werden die von Dir gewünschten Werte genommen, andernfalls, die jeweils entsprechend zu berechnenden Werte.

ScreenCenter widerspricht (in der Regel) nun mal Top 47 und Left 11.

Was sollte bei der Einstellung poScreenCenter denn dann genommen werden: Die Bildschirmmitte oder 47 und 11?
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
34.931 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: Fensterposition persistent machen

  Alt 30. Mär 2018, 18:54
Zitat:
Die werden ignoriert und im Anschluss durch die Werte überschrieben, die in der DFM hinterlegt sind bzw. falls Position = poScreenCenter eingestellt ist
Nein, wenn du etwas nach dem Auslesen der DFM überschreibst , dan ist es überschrieben,

ABER ja nach Position wird das zu unterschiedlichen Zeitpunkten ausgewertet ... Top/Left hier und Width/Height dort/dann.
Probier da mal bissl rum (hab's jetzt nicht im Kopf), aber einige der Position werden "komplett" vor dem OnShow behandelt und schon kannst du alles im OnShow überschreiben.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
1.766 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#7

AW: Fensterposition persistent machen

  Alt 30. Mär 2018, 19:09
ABER ja nach Position wird das zu unterschiedlichen Zeitpunkten ausgewertet ... Top/Left hier und Width/Height dort/dann.
Probier da mal bissl rum (hab's jetzt nicht im Kopf), aber einige der Position werden "komplett" vor dem OnShow behandelt und schon kannst du alles im OnShow überschreiben.
Ich habe schon jede erdenkliche Kombination von Position und OnCreate/OnShow/WM_AFTERSHOW/OnActivate durch. Das Resultat ist immer das selbe. Die persistente Position wird korrekt aus der Ini gelesen und Left/Top zugewiesen, doch anschließend "irgendwo" wieder übersteuert.
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber.
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
927 Beiträge
 
Delphi 7 Professional
 
#8

AW: Fensterposition persistent machen

  Alt 30. Mär 2018, 19:25
In meinen Programmen speichere ich schon seit Jahren die Position, Breite und Höhe (und vieles andere) in der Registry. Das geht analog auch in 'ner INI.

Es funktioniert nur, wenn Position auf poDesigned steht.

Alles andere ist dauerhaft, über die Jahre und Delphiversionen, gescheitert.

Wenn Du die Position selbst bestimmen willst, ist es doch nicht erforderlich die Position automatisch bestimmen zu lassen und dann nach irgend 'nem Weg zu suchen, der die eigene Bestimmung der Position doch noch ermöglicht.

Und wenn im Objektinspektor schon unbeding Position auf poScreenCenter stehen muss, dann versuch' doch mal, ob (sinngemäß) sowas funktioniert:
Delphi-Quellcode:
  // Irgendwo 'ner Prozedur vom Formular.
  Self.Position := poDesigned;
  Self.Left := ini.ReadInteger('Left',Self.Name,Self.Left);
  Self.Top := ini.ReadInteger('Top',Self.Name,Self.Top);
  ...
  Self.Position := poScreenCenter;
  Mit Zitat antworten Zitat
Sailor

Registriert seit: 20. Jul 2008
Ort: Balaton
96 Beiträge
 
Delphi 2005 Professional
 
#9

AW: Fensterposition persistent machen

  Alt 30. Mär 2018, 19:28
Setze die MainForm.Position auf einen der Defaultwerte (poDefault,..). Im erstmaligen Aufruf von FormShow werden Top, Left, Width und Height auf die Werte aus der Ini-Datei gesetzt und dann eventuell noch korrigiert, also Anpassen an Bildschirmgröße etc. Anschließend setze ich WindowState auf den gespeicherten Wert. Klappt einwandfrei mit Delphi2010 auf allen Windows-Systemen.
  Mit Zitat antworten Zitat
ghubi01

Registriert seit: 18. Nov 2017
66 Beiträge
 
Delphi 10.3 Rio
 
#10

AW: Fensterposition persistent machen

  Alt 30. Mär 2018, 20:23
Hallo,

ich würde die Daten im initialization Abschnitt aus der ini-Datei oder Registry einlesen und in globalen Variablen speichern.
Danach im FormCreate-Ereignis setzen.

Ich hab folgendes ausprobiert und es funktioniert:
Delphi-Quellcode:
var
  Form1: TForm1;
  x1,y1: integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Top:=x1;
  Left:=y1;
end;

initialization
// Das Einlesen aus der INI oder Registry habe ich mir hier gespart
// Die eingelesen Werte werden hier den globalen Variablen übergeben
  x1:=30;
  y1:=100;

end.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf