Quickreport nach Neustart wieder an gleicher Position öffnen

[norwegen60]

Funktioniert. Allerdings immer noch nicht ganz nachvollziehbar, was genau passiert
Mein Code

Delphi-Quellcode:

procedure TrptStdCalibration.qrStdCalStandPrevEvent(Sender: TObject; eventType: TStandPrevEventType; contName: string;
  var Handled: Boolean);
var
  s :String;

begin
  if eventType = spClose then
  begin
    Self.Left := Self.Left;                        // = 175
    Self.Left := qrStdCal.Left;                    // = 16
    Self.Left := qrStdCal.PreviewLeft;             // = 25
    Self.Left := TForm(Sender).Left;               // = 1526
    Self.Left := TQuickRep(Sender).Left;           // = 1526
    Self.Left := TQuickRep(Sender).PreviewLeft;    // = 2555888800
    s := Sender.ClassName;                         // = 'TQRStandardPreview'

    // d.h. Korrekt ist
    Self.Left := TQRStandardPreview(Sender).Left;  // = 1526
    

  u_Registry.SaveFormPos(Self);
  end;

TrptStdCalibration = TForm
qrStdCal = TQuickReport

d.h. die Komponenten selber liefern falsche Werte. Greife ich aber über Sender zu passt es.

Nach etwas probieren habe ich herausbekommen, dass Sender vom Typ TQRStandardPreview ist und der wird in QRPrev definiert
Korrekt ist also
Left := TQRStandardPreview(Sender).Left; Die Left-Zuweisungen haben nur dazu gedient, um nach Haltepunkt alle Werte anzuzeigen

Im Anhang ein Screenshot mit der Lage des Reports

[Uwe Raabe]

Zitat von norwegen60:

Greife ich aber über Sender zu passt es.

Das war die Idee.

Zitat von norwegen60:

Nach etwas probieren habe ich herausbekommen, dass Sender vom Typ TQRStandardPreview ist und der wird in QRPrev definiert
Korrekt ist also
Left := TQRStandardPreview(Sender).Left;

Da TQRStandardPreview von TForm abgeleitet ist, wäre auch TForm(Sender).Left korrekt. Das erspart eventuell den einen Eintrag in der Uses-Anweisung.

Ich persönlich würde auch das Setzen der Position im selben Event vorziehen. Dann hat man beide Teile des Codes an einer Stelle.

[norwegen60]

Zitat von Uwe Raabe:

Da TQRStandardPreview von TForm abgeleitet ist, wäre auch TForm(Sender).Left korrekt. Das erspart eventuell den einen Eintrag in der Uses-Anweisung.

Ich persönlich würde auch das Setzen der Position im selben Event vorziehen. Dann hat man beide Teile des Codes an einer Stelle.

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

Delphi-Quellcode:

procedure TrptStdCalibration.FormCreate(Sender: TObject);
begin
  u_Registry.RestoreFormPos(self); 
  qrStdCal.PreviewLeft := self.Left;
  qrStdCal.PreviewTop := self.Top;
  qrStdCal.PreviewWidth := self.Width;
  qrStdCal.PreviewHeight := self.Height;
end;

procedure TrptStdCalibration.qrStdCalStandPrevEvent(Sender: TObject; eventType: TStandPrevEventType; contName: string;
  var Handled: Boolean);
begin
  if eventType = spClose then
  begin
    // Zugriff auf Self.Left, qrStdCal.Left und qrStdCal.PreviewLeft liefert falsche Werte => Zugriff über Sender
    self.Left := TQRStandardPreview(Sender).Left;
    self.Top := TQRStandardPreview(Sender).Top;
    self.Width := TQRStandardPreview(Sender).Width;
    self.Height := TQRStandardPreview(Sender).Height;

    u_Registry.SaveFormPos(self);
  end;
end;

wurde

Delphi-Quellcode:

  case eventType of
    spClose: u_Registry.SaveFormPos(TForm(Sender));
    spOpen: u_Registry.RestoreFormPos(TForm(Sender));
  end;