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:

zusammenfalten · markieren

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.

zusammenfalten · markieren

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

Setze mal die Position des Buttons in Resize (überschreiben)!

Funktioniert auch nicht.

dann probiere mal in Create folgendes:

markieren

Delphi-Quellcode:

var
  R: TControlClass;
begin
  R := TControlClass (TButton);
  TControl (FButton) := R.Create (Self);
  FButton.Parent := Self;
...
end;

Auch keine Anzeige!

markieren

Delphi-Quellcode:

Procedure TKaFontButton.CreateWnd;
Begin
  Inherited;
  FButton.Left := Width - FButton.Width + 1;
  FButton.Top := 1; // Top schiebt es auch dem Anzeige bereich, im Control beginnt Canvas wieder bei (0;0)
End;

Wer möchte kann mich jetzt erschießen
danke @Kroko

PENG