Faire un trou dans une Form

procedure TForm1.Button1Click(Sender: TObject);
var
region1, region2 : hrgn;
begin
region1 := CreateRectRgn(0,0,width,height);
region2 := CreateEllipticRgn(30,30,200,200);
CombineRgn(region1, region1, region2, RGN_DIFF);
SetWindowRgn(handle, region1, true);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 846 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur