|
28-01-2008, 12:19
|
#1 (permalink) |
|
SO Üyesi
  
Üyelik tarihi: 22-11-2007
Nerden: napıcan ziyaretemi geLcen!!
Mesajlar: 4.536
Konular: 2724
Üye No: 11416
Ruh halim:
Rep Gücü : 268
Rep Puanı : 4991
Rep Seviyesi :
  
|
Saydam Form
procedure
TForm1.FormCreate(Sender: TObject); var MyRgn, ClientRgn, ButtonRgn: THandle; Margin, X, Y: Integer; begin Margin := (Width - ClientWidth) div 2; MyRgn := CreateRectRgn(0, 0, Width, Height); X := Margin; Y := Height - ClientHeight - Margin; ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight); CombineRgn(MyRgn, MyRgn, ClientRgn, RGN_XOR); X := X + Button1.Left; Y := Y + Button1.Top; ButtonRgn := CreateRectRgn(X, Y, X + Button1.Width, Y + Button1.Height); //-----------!!----------- CombineRgn(MyRgn, MyRgn, ButtonRgn, RGN_XOR); SetWindowRgn(Handle, MyRgn, True); end;
__________________
Büyük bir Derdin oLduğunda ALLah'a dönüp 'Benim büyük bi derdim var' deme. Derdine dönüp 'Benim senden büyük ALLah'ım var'de !!! Yüz Verip AdAm EttsiYsem SıfırLa çaRpar Yok Ederİm
|
|
  
|
|
|
 |
| Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz! |
| Konu Araçları | |
| Stil | |
|
|
Normal
