Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от P@rtiZaN

как убить мышу????

мышиловка, отрава, ногой можно, об стену, еще вариант

Код:

procedure TForm1.Button1Click(Sender: TObject); 
var    
r: TRect;    
pr: PRect;  
begin   
r.Left := 0;    
r.Top := 0;    
r.Right := 0;    
r.Bottom := 0;    
pr := @r;    
ClipCursor(pr);  
end;

ну еще

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  CState: Integer;
begin
  CState := ShowCursor(True);
  while Cstate >= 0 do
    Cstate := ShowCursor(False);
end;