Hi @ all,
ich möchte einen TButton in mein selbst gezeichnets TCustomControl setzen.
Es wird aber nicht angezeigt.
Visible ist auf True, Parent ist Self;
Hier der Code:
Delphi-Quellcode:
Constructor TKaFontButton.Create(AOwner: TComponent);
Begin
Inherited;
FButton := TButton.Create(Self);
FButton.Height := 15;
FButton.Width := 15;
FButton.Caption := 'H';
FButton.Parent := Self;
End;
Procedure TKaFontButton.CreateWnd;
Begin
Inherited;
FButton.Left := Width - FButton.Width + 1;
FButton.Top := Top + 1;
End;
Was mach ich falsch?
Als Hinweis vielleicht noch, dass CustomControl zeichne ich über die Paint - Methode.
Delphi-Quellcode:
Procedure TKaFontButton.Paint;
Begin
Inherited;
Canvas.Pen.Color := clBlack;
Canvas.MoveTo(0,0);
Canvas.LineTo(0, Height - 1);
Canvas.MoveTo(0, Height - 1);
Canvas.LineTo(Width - 17, Height - 1);
Canvas.MoveTo(Width - 17, Height - 1);
Canvas.LineTo(Width - 17, 0);
Canvas.MoveTo(Width - 17, 0);
Canvas.LineTo(0, 0);
Canvas.Brush.Color := clBlack;
Canvas.FillRect(Rect(2,2,Width - 17, Height - 2));
End;
Lieben Gruß
Karsten