اين كد موقع بستن فرم كارهاي جالبي با فرم مي كند

 

 

var

  tutup : Boolean;

  i : integer;

 

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

  reg1,reg2 : hrgn;

begin

   if tutup = true then

   begin

      i:=i + 10;

      reg1 := createroundrectrgn(0+i,0+i,width-i,height-i,20,20);

      setwindowrgn(handle,reg1,true);

   end;

 

   if i >= width then

   begin

      tutup := false;

      i := 1;

   end;

 

   if tutup = false then

   begin

      i := i + 10;

      reg1 := createrectrgn(0,0,(width div 2)-i ,height);

      reg2 := createrectrgn((width div 2)+i  ,0,width,height);

      combinergn(reg1,reg1,reg2,rgn_or);

      setwindowrgn(handle,reg1,true);

      if i >= width div 2 then

      begin

        tutup := true;

        i := 1;

     end;

   end;

end;

 

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

var

  reg1 : hrgn;

begin

  i := 1;

  timer1.Enabled := true;

  if MessageDlg('Do U wanna really exit now ?',

    mtConfirmation, [mbYes, mbNo], 0) = mrYes then

    canclose := true

  else

  begin

    canclose := false;

    timer1.Enabled := false;

    reg1 := createroundrectrgn(0,0,width,height,0,0);

    setwindowrgn(handle,reg1,true);

  end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

 tutup := True;

 timer1.Enabled := false;

end;

موضوع :