Thema: Delphi Die Form der Form...

Einzelnen Beitrag anzeigen

Balu der Bär
(Gast)

n/a Beiträge
 
#2

Re: Die Form der Form...

  Alt 3. Nov 2006, 20:55
So einfach wie du dir das vorstellst ist es AFAIR trotzdem nicht. Eine Möglichkeit ein Form abzurunden wäre unter anderem mit folgender Prozedur:
Delphi-Quellcode:
procedure MakeRounded(Control: TWinControl);
var
  R: TRect;
  Rgn: HRGN;
begin
  with Control do
  begin
    R := ClientRect;
    rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);
    Perform(EM_GETRECT, 0, lParam(@r));
    InflateRect(r, - 5, - 5);
    Perform(EM_SETRECTNP, 0, lParam(@r));
    SetWindowRgn(Handle, rgn, True);
    Invalidate;
  end;
end;
Ich wage zu behaupten das WinAMP & Co spezielle Hier im Forum suchenSkin-Komponenten benutzen...
  Mit Zitat antworten Zitat