[ecfisa]

Empezado por bulc

Una preguntita. ¿Cómo se impide que el ratón salga del TForm llevándose la notita-cursor del proceso Drag&Drop?
Los enanos alumnos, se llevan la letra fuera (al escritorio windows) y la pierden, lo mismo que pierde la paciencia su profe.
Lo dicho... Gracias.

Hola bulc.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
var
  R: TRect;
begin
  R:= GetClientRect;
  MapWindowPoints(Handle,0,R,2);
  ClipCursor(@R);
end;

// Necesario para salir de la aplicación
procedure TForm1.btnSalirClick(Sender: TObject);
begin
  Close
end;

Saludos.