Hy Leute...

Wo bzw unter welchem stichwort kann ich nachschaun um meine mainform zu ändern (ecken abrunden etc) ?
Vill hat ja jemand ein beispiel für mich währe supi

Danke CF

Unter "Create*Rgn" kannst du schaun

Naja rund is mir klar aber wie runde ich die ecken ab ?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  R: HRgn;
  a: integer;
begin
  a := -25;
  Height := 500;
  Width := 550;
  R := CreateEllipticRgn(-a, - a, Width - 45, Height - 45);
  SetWindowRgn(Handle, R, True);
end;

Wenn du CreateElippticRgn verwendest ist klar das eine Elypse draus wird. Konkret wäre eventuell CreateRoundRectRgn für dich das Richtige.

Mal beim Nachbarn vorbeischauen: CreateRoundRectRgn

Beispiel:

zusammenfalten · markieren

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;

@Balu + Threadstarter: Das erzeugte HRGN sollte nach dem Anwenden wieder gelöscht werden.
[Edit]ist vermutlich unsinn was ich geschrieben habe[/Edit]

Schon erledigt DANKE !

zusammenfalten · markieren

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;

Zitat von SirThornberry:

@Balu + Threadstarter: Das erzeugte HRGN sollte nach dem Anwenden wieder gelöscht werden.
[Edit]ist vermutlich unsinn was ich geschrieben habe[/Edit]

Stimmt

Zitat von SetWindowRgn:

you should not make any further function calls with this region handle. In particular, do not close this region handle.