IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
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;