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