Hallo zusammen,
ich bastele gerade an einer Komponente, abgeleitet von TCustomControl (siehe Grafik). Probleme bereitet mir momentan die Positionierung des als Schließsymbol vorgesehenen TImages. Ich habe keine Idee, wie die Syntax dafür lautet, im constructor der Komponente die soeben erzeugte Komponente dem ebenfalls im constructor erzeugten TImage als Parent zuzuweisen. Hier mein bisheriger Code:
Delphi-Quellcode:
constructor TSDTipPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
//TArrowShape (Pfeildreieck)
FArrow := TArrowShape.Create;
FArrow.FArrHeight := 20;
FArrow.FArrLeft := 20;
FArrow.FArrWidth := 20;
FArrow.FArrType := atLeft;
FArrow.FArrPos := apTop;
FArrow.OnChange := StyleChanged;
//zusätzliche Initialisierungen
Self.Color := clWhite;
Self.Height := 100;
Self.Width := 200;
Self.Caption := '';
Parent := AOwner as TWinControl;
FRadius := 10;
FBrush := TBrush.Create;
FBrush.OnChange := StyleChanged;
FBorderBrush := TBrush.Create;
FBorderBrush.Style := bsSolid;
FBorderWidth := 1;
FBorderColor := clSilver;
//Image als Schließsymbol
FCloseImage := TImage.Create(Self);
FCloseImage.Parent := ???; //<-- hier klemmts, was muss hier stehen
FCloseImage.Canvas.Pen.Color := clBlack;
FCloseImage.Canvas.Pen.Width := 1;
FCloseImage.Top := 35;
FCloseImage.Left := 60;
FCloseImage.Width := 20;
FCloseImage.Height := 20;
Visible := true;
end;
Danke für Eure Hinweise