Form während Erfassung in Grid blokieren

[haentschman]

Moin...

Zitat:

In diesem Grid kann man Daten zeilenweise erfassen und muss die Erfassung der Zeile mit ENTER abschließen. Nun kommt es zu unerwünschten Nebeneffekten wenn der Anwender mitten in der Erfassung mit der Maus auf der Form "rumklickt"...

...früher hatte ich das auch so. Irgendwann hatte ich keine Lust mehr auf: "Eventualitäten beachten"!

Alternative:
Dafür habe ich mir "Inline Editoren" gebaut. Im Prinzip sind das stinknormale normale modale TForm. Da hat man keine Klickprobleme außerhalb des "Editors". Die werden ganz normal designed oder abgeleitet. Für das Editieren im Grid wird der "Editor" erzeugt, die Positionen/Größe relativ zur Zeile eingestellt und angezeigt. Ich habe mich, für meinen Teil, für die Variante ohne Logik im "Editor" entschieden. Die Daten gehen rein, werden manipuliert, ausgelesen und außerhalb des "Editors" gespeichert. Man kann die Speicherlogik auch im "Editor" unterbringen. Wie man mag. Wenn du dich für diese Variante entscheidest und mehr Editoren brauchst, dann sollte das "Parent" Control dem Editor bekannt sein. Da kannst du die Edits z.B. automatisch entsprechend der Spalte ausrichten.

Der Vorteil ist, das man bei der Eingabe nicht auf die einzelne Zelle beschränkt ist. Da sind auch andere Varianten mit komplexen Objekten möglich.

[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;

[haentschman]

Moin...

Zitat:

ClipCursor

http://www.delphipraxis.net/dp_refer...65035a3&lib=dp
...ist auch nicht ohne. Da setzt man sich wieder andere Flöhe in den Pelz.
Beispiel:

Zitat:

Kann es sein, dass ClipCursor in einer virtuellen Maschine nicht funktioniert? Aufgefallen ist es mir bei einem meiner eigenen Programme. Unter 2k & XP funktioniert es wunderbar. Gleiche Systeme in Microsofts Virtual PC 2004: ClipCursor hat keinen Effekt. (Ebenso wenig kann man anscheinend die Mouse ausblenden; aber das gehört nicht hier her)

Ich hatte die Frage so verstanden das die Zeile die editiert wird "aktiv" bleibt aber das Grid selbst nicht.

[HolgerX]

Zitat von 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;

Hmm..


müsste das nicht eher so sein?

Delphi-Quellcode:

var
  Rect: TRect;
begin
  Rect.TopLeft := ClientToScreen(DBGrid1.BoundsRect.TopLeft);
  Rect.BottomRight := ClientToScreen(DBGrid1.BoundsRect.BottomRight);
  ClipCursor(@Rect);
end;

So bekommt das ClipCursor den tatsächlichen Rect des Grids auf dem Screen.
Ansonsten ist der irgendwo, da Grid-Left in abhängigkeit vom Parent ist und nicht vom Screen...


Edit:

Oder (verkürzt)

Delphi-Quellcode:

var
  Rect: TRect;
begin
  GetWindowRect(DBGrid1.Handle, Rect);
  ClipCursor(@Rect);
end;

[t.roller]

Zitat von HolgerX:

Delphi-Quellcode:

var
  Rect: TRect;
begin
  GetWindowRect(DBGrid1.Handle, Rect);
  ClipCursor(@Rect);
end;

Ja, das funktioniert gut.
ClipCursor sollte auch nur ein Denkanstoss sein.

[DeddyH]

Sry, aber eine Software, die mir die Maus einsperrt, flöge in Lichtgeschwindigkeit von meiner Festplatte (es sei denn, ich hätte sie genau zu diesem Zweck installiert).

[himitsu]

Man kann alles auch ohne Maus machen.

Was Detlef meint, dass sich solche Sperren maximal auf die eigene Anwendung auswirken sollten und auch da nur mit Bedacht, denn was ist, wenn man die Eingabe abbrechen will?
Und sicherheitshalber bietet Windows auch eine Möglichkeit, womit man diese CursorSperre abschalten kann, falls irgendein Programm sowas benutzt und den User einsperren will.

[pesi]

Ich würde ein Panel auf die Form legen und dort alle Steuerelemente AUSSER dem Grid ablegen. So musst Du nur das Panel aktiv/inaktiv setzen und schon hast Du das gewünschte Ergebnis. ....also außer natürlich die Systemmenüs der Form zum Schließen/Maximieren etc., die kannst Du so natürlich nicht deaktivieren