Gönderen Konu: Yuıvarlak ve Delikli Form (Okunma sayısı 1747 defa)

Mikdad · « : 10 Kasım 2005 21:50:45 »

//FORMUN CREATE YORDAMINA KODU EKLEYIN Yuvarlak Form olussun

Kod: (Unknown Language)

Var
Sekil: HRGN;
Begin
Sekil := CreateEllipticRgn(0, 0, Width, Height);
SetWindowRgn(Form1.Handle, sekil, true);
End; 

//FORMUN CREATE YORDAMINA KODU EKLEYIN. Delik Desik Form olussun

Kod: (Unknown Language)

var
Combined_Rgn : HRGN;
Inner_Rgn : HRGN;
Outer_Rgn : HRGN; 
 
begin
Outer_Rgn := CreateRectRgn(0,0,Width,Height);
Inner_Rgn := CreateEllipticRgn(width div 2,height div 2, width div 4,height div 4);
Combined_Rgn := CreateRectRgn(0,0,0,0);
CombineRgn(Combined_Rgn, Outer_Rgn, Inner_Rgn, RGN_DIFF);
SetWindowRgn(Form1.Handle, Combined_Rgn, True);
end;

sessizgece · « **Yanıtla #1 :** 10 Nisan 2006 00:23:47 »

sağol kardeş ellerine sağlık
beni msn ine eklermisin sormak istediklerim varda

msn: gokhankoc90@hotmail.com

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Yuıvarlak ve Delikli Form (Okunma sayısı 1747 defa)

Mikdad

Yuıvarlak ve Delikli Form

sessizgece

Ynt: Yuıvarlak ve Delikli Form