Limiter le déplacement du curseur

procedure TForm1.Button1Click(Sender: TObject);
var
Rect: TRect;

begin
Rect.Left := Left;
Rect.Top := Top;
Rect.Right := Left+Width;
Rect.Bottom := Top+Height;
ClipCursor(@Rect);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ClipCursor(nil);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 902 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Surface
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur