Hallo,
ich Programmiere zur Zeit eine eigene Komponente. Auf dieser befinden sich 2 Images, 1 Panel und 1 TreeView.
Zuerst lief alles wunderbar mit diesem code:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
| tvTreeView := TTreeView.Create(Self);
tvTreeView.Parent := Self;
tvTreeView.ShowRoot := False;
tvTreeView.BorderStyle := bsNone;
tvTreeView.ReadOnly := True;
pnlScrollBar := TPanel.Create(Self);
pnlScrollBar.Parent := Self;
pnlScrollBar.BorderWidth := 1;
pnlScrollBar.BevelOuter := bvNone;
SetScrollImageWidth(FScrollImageWidth);
SetScrollBarBackColor(FScrollbarBackColor);
SetScrollBarPosition(FScrollbarPosition);
imgScrollUp := TImage.Create(pnlScrollBar);
imgScrollUp.Parent := pnlScrollBar;
imgScrollUp.Align := alTop;
imgScrollUp.Height := 16;
imgScrollUp.AutoSize := True;
imgScrollUp.Stretch := True;
imgScrollUp.OnMouseDown := imgScrollUpMouseDown;
imgScrollUp.OnMouseUp := imgScrollUpMouseUp;
imgScrollDown := TImage.Create(pnlScrollBar);
imgScrollDown.Parent := pnlScrollBar;
imgScrollDown.Align := alBottom;
imgScrollDown.Height := 16;
imgScrollDown.AutoSize := True;
imgScrollDown.Stretch := True;
imgScrollDown.OnMouseDown := imgScrollDownMouseDown;
imgScrollDown.OnMouseUp := imgScrollDownMouseUp; |
Aber auf einmal (obwohl ich in diesem abschnitt garnichts geändert hatte), wenn ich das teil aufs Form ziehe, tritt dort der Fehler: "Control '' has no parent window" bei "tvTreeView.Parent := Self;" auf. Lösche ich diese Zeile habe ich den Fehler bei "pnlScrollBar.Parent := Self;" usw.
Ohne das setzen des Parents gehts jedoch nicht.
Ich hab auch schon versucht:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| constructor TPicScrollListBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Self.Parent := TWinControl(AOwner);
|
Aber selbst damit gehts net.
Ich bin echt am verzweifeln
Besonders weil vorher alles super lief??
Hoffe mir kann jemmand helfen.
Danke im Voraus!
mfg flo
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt.
