Hi zusammen
In einer
VCL.Net-Anwendung habe ich einen Frame erstellt und möchte ihn nun zur Laufzeit einfügen. Der Code:
Delphi-Quellcode:
//inherited Create(TTextCellFrame);
OneCell := TTextCellFrame.Create(Self);
OneCell.Parent := Scrollbox1;
OneCell.Align := alNone;
OneCell.Left := 0;
OneCell.Height := 85;
OneCell.Top := OneCell.Height * Zeilennummer;
OneCell.Width := Scrollbox1.ClientWidth;
inc(ZeilenNummer);
OneCell.Name := 'TextCellFrame'+intToStr(ZeilenNummer);
OneCell.TabOrder := Zeilennummer;
OneCell.Align := alTop;
SetLength(ZeilenArray, Length(Zeilenarray) +1);
for i := Low(Zeilenarray) to High(Zeilenarray) do begin
if (i = High(Zeilenarray)) then
ZeilenArray[i] := OneCell;
end;
Die erste Zeile läuft problemlos ab.Die zweite Zeile löst mehrere Meldungen aus:
Zitat:
Die angegebene Umwandlung ist ungültig
und
Zitat:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt
Die letztere muss ich zweimal wegklicken. Nun erhalte ich wieder das Debugfenster, wobei die Ausführungsposition auf der dritten Zeile steht.
Wie an der auskommentierten Zeile ersichtlich, bin ich offenbar gar nicht so weit von der Lösung entfernt. Allerdings erhalte ich da die Fehlermeldung:
Zitat:
Nicht genügend Parameter
Das heisst, ich steh' halt doch irgendwie auf dem Schlauch...
Würde mich freuen, wenn jemand dazu beitragen könnte, meinen grundsätzlichen Knoten zu lösen. Schon mal vielen Dank!
Gruss
Delbor