Créer des fenêtres rondes

procedure TForm1.FormCreate(Sender:TObject);
var
region: HRgn;

begin
region:=CreateEllipticRgn(1,1,200,200);
SetWindowRgn(handle, region, true);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 2746 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Surface
Auteur de l'article
arachnosoft arachnosoft
connecté le 02/11/2011
1 articles dans la section
Contacter l'auteur