Tekil Mesaj gösterimi
Alt 18 Mart 2015, 14:12   #1
Çevrimdışı
Kaf_Dağı Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Görünmez form oluşturma D7




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
procedure TRamazan.gorunmezform(formt:TForm;soldan,yukaridan,yukseklik,genislik:integer;buttongizle:Boolean;Gizle_Goster:Boolean;BorderStyle:TBorderStyle); var benim,tam,gorunuralan: THandle; widtht,Xttt,Yttt: Integer; begin if not Gizle_Goster then formt.BorderStyle:=bsNone else formt.BorderStyle:=BorderStyle; if formt.Height<yukseklik then formt.Height:=yukseklik; if formt.Width<genislik then formt.Width:=genislik;widtht := (formt.Width - formt.ClientWidth) div 2; benim := CreateRectRgn(0, 0, formt.Width, formt.Height); Xttt := widtht; Yttt := formt.Height - formt.ClientHeight - widtht; tam := CreateRectRgn(Xttt, Yttt, Xttt + formt.ClientWidth, Yttt + formt.ClientHeight); CombineRgn(benim, benim, tam, RGN_XOR); Xttt := Xttt + soldan; Yttt := Yttt + yukaridan; gorunuralan:=CreateRectRgn(Xttt,Yttt,Xttt+genislik , Yttt +yukseklik ); CombineRgn(benim, benim, gorunuralan, RGN_XOR); SetWindowRgn(formt.Handle, benim, true); if buttongizle then begin SetWindowLong(Application.Handle,GWL_EXSTYLE, WS_EX_TOOLWINDOW); SetWindowLong(Application.Handle,GWL_HWNDPARENT,WS_EX_TOOLWINDOW); end; end;


__________________
SusKun ve Sessiz Mürekkep...


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan reklamver