Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
Delphi 6 Personal
|
Re: Panels
20. Apr 2007, 18:13
Bitte das Freigeben der Region(en) nicht vergessen da es Speicher belegt! DeleteObject
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;
|