Nicht rechteckige Komponenten (rund oder polygonal)

[Ferber]

Hi ihr Allwissenden!

Habe mir vor kurzem ein Casio PX330 Keyboard zugelegt, diverse Demoversionen von Notenprogrammen runtergeladen, aber was ich möchte, habe ich nicht, oder nicht so wie ich mir das vorstelle, gefunden.
Super finde ich das Midiklavier von FALTER (Open Source) mit den Midikompos, hier im Forum.
Da gefällt mir aber die Optik der Tasten nicht (sind dort durch Shapes dargestellt).

Möchte mir also schöne Tasten basteln, abgeleitet von zb. TPanel.
Wie's grundsätzlich geht ist mir klar (SetWindowRgn(....)), gibt ja Beispiele hier.

Nicht klar ist mir aber, WAS ich bei TPanel überschreiben muß.
Bei 'Create' funktioniert es nicht. Bei 'Paint' beginnt die IDE zu spinnen. Bitte WO ??? :gruebel:
Von 'aussen' = 'TForm.Create' funktioniert's ganz prächtig, aber das ist ja nicht der Sinn der Sache.

Delphi-Quellcode:

constructor TTaste.Create(AOwner: TComponent);
const
  c=5;
var
  Points: array [0..7] of TPoint;
  h, w: Integer;
begin
  inherited;

  Width := 23;
  Height:=150;

  h := Height;   
  w := Width;    

  Points[ 0].X := C;      Points[ 0].Y := 0;       // links oben
  Points[ 1].X := 0;      Points[ 1].Y := C;

  Points[ 2].X := 0;      Points[ 2].Y := h - c;   // links unten
  Points[ 3].X := C;      Points[ 3].Y := h;

  Points[ 4].X := w - c;  Points[ 4].Y := h;       // rechts unten
  Points[ 5].X := w;      Points[ 5].Y := h - c;

  Points[ 6].X := w;      Points[ 6].Y := c;       // rechts oben
  Points[ 7].X := w - c;  Points[ 7].Y := 0;

  SetWindowRgn(Handle, CreatePolygonRgn(Points, 8, WINDING), True);
end;

Das funzt leider nicht.

Bitte um Erleuchtung :idea:

[Medium]

Im Konstruktor hab ich das schon erfolgreich gemacht, allerdings hab ich direkt von TWinControl abgeleitet. Weiss der Deibel was TPanel noch tut dass das kaputt macht :gruebel:

[Ferber]

Ok, probier ich mal, aber erst morgen.

[Medium]

Oh warte ne Sekunde... Ich hatte mit Regions damals auch irgend welche Probleme, ich erinnere mich dunkel - allerdings nicht, ob es evtl. das gleiche war. Ich bin statt dessen dazu übergegangen von TGraphicControl abzuleiten, was ja auf den Parent-Canvas zeichnet.
Damit Mausklicks dennoch nur der eigentlichen Form gehorchen, hab ich die Message CM_HITTEST verarbeitet, und dafür einen Punkt-in-Polygon Algorithmus bemüht (da finden sich hier einige: Punkt in Polygon).