Form während Erfassung in Grid blokieren

[t.roller]

ClipCursor

Beispiel:

Delphi-Quellcode:

procedure TForm1.DBGrid1MouseEnter(Sender: TObject);
var
  Rect: TRect;
begin
  Rect.Left   := DBGrid1.Left;
  Rect.Top    := DBGrid1.Top;
  Rect.Right  := DBGrid1.Left + DBGrid1.Width;
  Rect.Bottom := DBGrid1.Top + DBGrid1.Height;
  ClipCursor(@Rect);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#27 then ClipCursor(nil);// ESC
end;