Main.Width und Height

[himitsu]

Ignoriert wird es nicht wirklich. Diese Position wird im Show neu verechnet und überschreibt es wieder.

Ein Teil der Positionsberechnung ist schon vorm OnCreate (bei Erstellen/Laden der Form) und en Teil kommt erst beim OnShow dran. (leider nicht alles ideal verteilt)

[Willie1]

Hallo,
im Objekt-Inspektor steht bei MainForm:
Position poScreenCenter
WindowsState wsNormal
Width 637 Height 900
OnCreate-Event lese ich die gespeicherten Werte aus, sonst Default setze MainForm.Width und MainForm.Height. Ich habe sie mit dem Debugger überprüft.

Delphi-Quellcode:

with Config do begin    
    ReadInteger('Width',637,tmpi,true);
    MainForm.Width:=tmpi;
    ReadInteger('Height',475,tmpi,true);
    MainForm.Height:=tmpi;

onShow-Event habe ich WindowState := wsMaximized; hinzu gefügt. Bringt nichts.
Das muss doch einen Unterschied zwischen Delphi 2005 und Delphi Berlin geben. Mit dem alten Compiler übersetzt ist alles in Ordnung. Willie.

[Willie1]

Hallo Renate,
ich habe es so gemacht:
self.SetBounds(1,1,wi,he); und es klappt. Left und Top spielen keine Rolle, da ich Postion auf poScreenCenter gesetzt habe, nehme ich an!
SetBounds habe ci hier noch nie gesehen oder benutzt.
Danke und Gruß Willie.

[himitsu]

Genau, rate mal was poScreenCenter macht?
Es überschteibt nach deinem OnShow die Koordinaten.

DEFAULT, aber in der DFM/FormDesigner oder allerspätestens im OnCreate ... die Positionen werden, wenn in der DFM, noch vor OnCreate geladen und können überschrieben werden.

[Willie1]

Hallo Leute,
dieser von mir beschriebene Fehler tritt auf, wenn bei den TForm-Events OnCanResize eingebunden wird. Dann gibt es noch andere merkwürdige Effekte. Sonst funktionieren TForm.Width und Height, wie gewohnt.
Willie.

[Dalai]

Da TForm.OnCanResize ein Event ist, an das eine Ereignis-Methode gebunden werden kann, stellt sich natürlich (für mich) sofort die Frage, was diese Methode bei dir tut.

Grüße
Dalai

[Willie1]

Delphi-Quellcode:

procedure TMainForm.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Resize:=(NewHeight > 374) and (NewWidth > 636);
end;

Ich will verhindern, dass das Fenster kleiner wird. Ich habe das Event weggelassen. Ich hatte hier viele Antworten angeregt und will jetzt mitteilen, woran es wohl liegt!? Willie.