Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by norwegen60,
1. Feb 2020
Danke für den Tip.
Habe zwar noch mal grübeln müssen was du meinst aber das hat das Handling tatsächlich stark vereinfacht.
Aus
procedure TrptStdCalibration.FormCreate(Sender: TObject);
begin
u_Registry.RestoreFormPos(self);
qrStdCal.PreviewLeft := self.Left;
qrStdCal.PreviewTop := self.Top;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by norwegen60,
1. Feb 2020
Funktioniert. Allerdings immer noch nicht ganz nachvollziehbar, was genau passiert
Mein Code
procedure TrptStdCalibration.qrStdCalStandPrevEvent(Sender: TObject; eventType: TStandPrevEventType; contName: string;
var Handled: Boolean);
var
s :String;
begin
if eventType = spClose then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by norwegen60,
1. Feb 2020
Wie schon gesagt: OnAfterPreview wird beim Schließen aufgerufen und da habe ich es versucht. Nur liefern weder Form.Left noch Form.QuickReport1.PreviewLeft das korrekte Ergenis wo das Form / der Report gerade liegt.
Das Ereignis hätte ich also aber nicht die passende Eigenschaft.
Ich könnte mir vorstellen, dass es was damit zu tun hat, dass man beim Erstellen TQuickreport zwar in ein Form...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by norwegen60,
31. Jan 2020
Hallo zusammen,
wer weiß, wie ich beim Schließen eines QuickReports die aktuelle Position/Größe ermittle? Mich Interessiert die Größe des äusseren Rahmens, nicht die der Seite innerhalb.
Bei normalen TForms mache ich das in OnClose mit TForm.Left, ...Top, ...
Beim Schließen von QuickReport wird OnClose und OnCloseQuery gar nicht aufgerufen.
Auch kein OnResize beim Verschieben...