Ecken abrunden?

[ColdFire]

Schon erledigt DANKE !

Delphi-Quellcode:

  procedure TForm1.FormCreate(Sender: TObject);
    var
      rgn: HRGN;
    begin
      rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left corner
        0,            // y-coordinate of the region's upper-left corner
        ClientWidth,  // x-coordinate of the region's lower-right corner
        ClientHeight, // y-coordinate of the region's lower-right corner
        40,           // height of ellipse for rounded corners
        40);          // width of ellipse for rounded corners
      SetWindowRgn(Handle, rgn, True);
    end;