|
28-01-2008, 12:19
|
#1 (permalink) |
|
Banlandı
  
Üyelik tarihi: 22-11-2007
Nerden: napıcan ziyaretemi geLcen!!
Mesajlar: 0
Konular: 2724
Üye No: 11416
Ruh halim:
Rep Gücü : 0
Rep Puanı : 0
Rep Seviyesi :
 
|
Formlara Zoom Efekti
type
TZHar = (syKapat, syAc); procedure ZEfek(OForm: TForm; islem:TZHar); var SStart: TRect; SEnd: TRect; STray: TRect; wndTray : hWnd; wndChild: hWnd; begin wndTray := FindWindow('Shell_TrayWnd', nil); wndChild := FindWindowEx(wndTray, 0, 'TrayNotifyWnd', nil); GetWindowRect(wndChild, STray); if islem = syKapat then begin SStart := OForm.BoundsRect; SEnd := STray; end else begin SEnd := OForm.BoundsRect; SStart := STray; end; //sihir burda gerçekleşiyor DrawAnimatedRects(OForm.Handle, IDANI_CAPTION, SStart, SEnd) end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ZEfek(Self,syKapat); end; procedure TfrmTest.FormShow(Sender: TObject); begin ZEfek(Self, syAc); end; |
|
  
|
|
|
 |
| Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz! |
| Konu Araçları | |
| Stil | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | son Mesaj |
| Cs de Awp ve Aug Zoom Problemi | Kaboom | Counter Strike | 1 | 18-05-2008 12:52 |
| Fotoları zoom leyebılırsınız | WaMPiR_CaDı | Samsung | 3 | 12-04-2008 23:38 |
| Satılık > Zoom Adsl X4 5661 | wanted | Off Topic | 0 | 19-12-2007 11:15 |
| Zoom Player Standard | Programcı | Program-Haberleri | 0 | 15-10-2007 13:11 |
| Zoom 5554A Modemlerde port açma | wanted | Donanım | 1 | 19-09-2007 17:48 |
Normal
