Ich krieg das Handle von abgeleitetem Edit nicht!

[Red six]

Ok danke für deine Antwort!

Alsooo...

1) versteh ich nicht ganz was du meinst
2) Ok ich habs in die prozedur Paint gesteckt
3) inherited Paint geht leider nicht ("Undefinierter Bezeichner: 'Paint'") Kanns sein dass die Prozedur da anders heißt?
4) Mh also im moment hab ich blos ein normales editfeld, rund is da leider noch nix (Liegt demnach an obigen problem)
5) Ok sorry stimmt hab mich falsch ausgedrückt, es war ein Laufzeitfehler, wobei dieser mittlerweile auch beseitigt ist!

Delphi-Quellcode:

  
rnd := TRoundEdit.Create(MainForm);
rnd.Parent := MainForm;
rnd.Left := 10;
rnd.Top := 10;

Delphi-Quellcode:

constructor TRoundEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  self.Ctl3D := False;
end;

procedure TRoundEdit.Paint;
begin
  //inherited Paint;

  Canvas := TCanvas.Create;
  Canvas.Handle := GetDC(Handle);
  Canvas.RoundRect(Self.Left, Self.Top, Self.Width, 20, 10, 10);
  Canvas.Free; //das gleich hier rein?
end;

Red