Thema: Delphi Panels

Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#4

Re: Panels

  Alt 20. Apr 2007, 18:13
Bitte das Freigeben der Region(en) nicht vergessen da es Speicher belegt! Delphi-Referenz durchsuchenDeleteObject

Delphi-Quellcode:
var rgn: hrgn;

procedure TForm1.FormCreate(Sender: TObject);
begin
  rgn := CreateRoundRectRgn(0,0, panel1.Width, panel1.Height, 20, 20);
  SetWindowRgn(panel1.Handle, rgn, TRUE);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeleteObject(rgn);
end;
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat