Das geheimnissvolle Controll

[Delbor]

Hi zusammen

In einer Scrollbox möchte ich mehrere Instanzen eines TCustumControl-Nachfahhren platzieren. Dieses versuchen ich in einer Testanwendung so:

Delphi-Quellcode:

procedure TRSPdfFrame.PdfViewCreate;
  var i: integer;
begin
  for i := 0 to 4 do
  begin
    FPDFView := TPdfView.Create(Self);
    FPdfView.Parent := Scrollbox1;
    FPdfView.Name := 'PdfView'+intToStr(i);
    FPdfView.Color := clyellow;
    FPdfView.Height := 120;
    FPdfView.Top := i * (FPdfView.Height + 8);
    FPdfView.Width := Scrollbox1.ClientWidth - 40;
    FPdfView.Left := (ScrollBox1.ClientWidth - FPdfView.Width) div 2;
    ScrollBox1.VertScrollBar.Range := ScrollBox1.VertScrollBar.Range + FPdfView.Height;
  end;
end;

Der Aufruf:

Delphi-Quellcode:

procedure TRSPdfFrame.ScrollBox1Resize(Sender: TObject);
begin
  PdfViewCreate;
  FReportlist.Add('ScrollBox1Resiz')
end;

Der Inhalt von FReportlist wird bei Programmende in eine Datei geschrieben. Deren Inhalt:

Delphi-Quellcode:

13.11.2018 17:32:28
----------------
ScrollBox1Resiz

Meine Fehlermeldung:

Zitat:

Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt HomeOfficerMainProject.exe ist eine Exception der Klasse EComponentError mit der Meldung 'Komponente mit der Bezeichnung PdfView0 existiert bereits' aufgetreten.
---------------------------

Die DCUs und die EXE habe ich schon mehrmals gelöscht.
Was ist da falsch?

Gruss
Delbor

[Schokohase]

Führe doch bitte mal diese Änderungen aus

Delphi-Quellcode:

procedure TRSPdfFrame.ScrollBox1Resize(Sender: TObject);
begin
  FReportlist.Add('ScrollBox1Resiz ENTER');
  PdfViewCreate;
  FReportlist.Add('ScrollBox1Resiz EXIT');
end;

und zeige uns dann den Inhalt der Datei

[Hobbycoder]

Naja, du läßt bei jedem Resize TRSPdfFrame.PdfViewCreate durchlaufen. Und erzeugst nur. Demnach ist beim zweiten Resize ein Control mit dem Namen auch bereits vorhanden.

Wenn's anders nicht geht, sollte du die bereits erzeugten Controls vorher entfernen.
Besser wäre es natürlich im Resize auch die Controls in ihrer Größe zu ändern, als sie zu löschen und neu zu erzeugen.

[DeddyH]

Man muss übrigens beim dynamischen Erzeugen von Controls keinen Namen zuweisen.

[Schokohase]

Zitat von Hobbycoder:

Naja, du läßt bei jedem Resize TRSPdfFrame.PdfViewCreate durchlaufen. Und erzeugst nur. Demnach ist beim zweiten Resize ein Control mit dem Namen auch bereits vorhanden.

Ich wette das weiß er, aber diese "Log-Datei" hat ihn in die Irre geführt, weil er denkt, dass die Methode TRSPdfFrame.ScrollBox1Resize nur einmal ausgeführt wird.

[Delbor]

Hi Schokohase

Danke für deine schnelle Antwort!
Tja, das ist doch schon sehr speziell - wenigstens für mich im Moment:

Zitat:

13.11.2018 18:02:00
----------------
ScrollBox1Resiz ENTER
ScrollBox1Resiz ENTER
ScrollBox1Resiz EXIT

So der Dateiinhalt, und so der aktuelle Code:

Delphi-Quellcode:

procedure TRSPdfFrame.ScrollBox1Resize(Sender: TObject);
begin
//  FReportlist.Add('ScrollBox1Resiz')
  FReportlist.Add('ScrollBox1Resiz ENTER');
  PdfViewCreate;
  FReportlist.Add('ScrollBox1Resiz EXIT');
end;

Dass der Frame vor der Mainform erzeugt wird, ist mir schon klar, aber dass sich ein Ereignis widerholt, noch bevor es zu Ende ist...

Oder was verstehe ich jetzt falsch?

Okay, ich hab vor dem Anzeige der Vorschau die weiteren Beiträge gesehen und kann da nur mal bestätigen: Ja, ich weiss, der Anwender will die Form eventuell mehrmals resizen - ich muss das also kontrollieren.
Zur Zeit läüft der Test, wie ich die Dinger korrekt untereinander bringe. Das Stimmt insofern noch nicht, als dass die Form zu klein ist, um den gesammten Clientbereich der Scrollbox anzuzeigen. Mit dem Feler im Fokus hat mich die Sache mit dem Resize doch auf dem falschen Fuss erwischt.


Gruss
Delbor

[Delphi.Narium]

Das Erstellen der Controls gehört nicht ins Resize. Resize ist für Größenänderungen (wie der Name schon sagt).

Die Controls werden einmalig erstellt (z. B. im FormCreate oder einer daraus aufgerufenen Methode).

[Hobbycoder]

Zitat von Schokohase:

Ich wette das weiß er

Da war ich jetzt auch mal von ausgegangen. Aber manchmal......nach einem langen Arbeitstag...…

[Delbor]

Hi zusammen

Zitat von DeddyH:

Man muss übrigens beim dynamischen Erzeugen von Controls keinen Namen zuweisen.

Ich werde später darauf zugreifen müssen - Okay, da täte es auch das Tag-Property.

Zitat von Schokohase:

Zitat von Hobbycoder:

Naja, du läßt bei jedem Resize TRSPdfFrame.PdfViewCreate durchlaufen. Und erzeugst nur. Demnach ist beim zweiten Resize ein Control mit dem Namen auch bereits vorhanden.

Ich wette das weiß er, aber diese "Log-Datei" hat ihn in die Irre geführt, weil er denkt, dass die Methode TRSPdfFrame.ScrollBox1Resize nur einmal ausgeführt wird.

Das heisst, dass es die Kontrolle auch dann braucht, wenn die Form nur in einer einzigen Gösse angezeigt wird.
Wie ist das denn mit dem Resize? Da ist mal der Basisframe - aber braucht der ein Resize? Der wird ja nie angezeigt.
Auf der Form habe ich gerade mal eine Frameinstanz - wäre nach meinem bisherigen Stand des Irrtums gerade mal ein Resize-Ereignis.

Anders sähe es wohl aus, wenn das Resize des Frames nach jedem Resize auf der Containerform aufgerufen würde - grundsätzlich könnte nach jedem Resize eines andern Elementes eine Anpssung nötig sein. Meine Frage hier wäre also: lösen Resize-Events anderer Elemente ein erneutes Resize aus?

Zitat von Hobbycoder:

Da war ich jetzt auch mal von ausgegangen. Aber manchmal......nach einem langen Arbeitstag...…

Ich bin in Rente. Das heisst, zumindest jetzt nicht übermüdet.


Gruss
Delbor

[Delbor]

Hi Delphi.Narium

Zitat von Delphi.Narium:

Das Erstellen der Controls gehört nicht ins Resize. Resize ist für Größenänderungen (wie der Name schon sagt).

Die Controls werden einmalig erstellt (z. B. im FormCreate oder einer daraus aufgerufenen Methode).

Anfänglich rief ich die PdfCreate-Proedur aus dem Constructor des Frames auf - mit dem Resultat, das sämtlche Elemente übereinander erstellt wurden. Ist ja auch kein Wunder - zu dem Zeitpunkt gibts noch keine Form und eine Höhe eines Elements dieser Form schon gar nicht.
Ein Create oder sonst was(Activate, Show) kennt der Frame auch nicht. Wann also sollen diese Controls erzeugt werden?
Für den Produktiveinsatz stellt sich dieses Problem allerdings wohl nicht - hier ist dies Aufgabe zum Beispiel eines Eventhandlers, der auf das Öffnen einer Datei reagiert...

Gruss
Delbor