Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Willie1,
5. Sep 2020
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Willie1,
5. Sep 2020
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Willie1,
26. Aug 2020
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Willie1,
26. Aug 2020
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.
with Config do begin
ReadInteger('Width',637,tmpi,true);
MainForm.Width:=tmpi;
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Willie1,
25. Aug 2020
Hallo Leute,
ich bin dabei ein altes mit Delphi 2005 erstelltes Programm auf Delphi Berlin um zu stellen. (hat sich sicher herum gesprochen) Ich bin fast fertig. Eines bekomme ich nicht hin, Debuggen bringt mich nicht weiter.
Mein Programm merkt sich beim Beenden MainForm.Width und Height. Beim Starten liest es die Werte aus und stellt das Programm-Fenster auf die gleiche Größe. Falls die Maße...