Clipboard Paste Prüfung

[zeras]

Ich habe eine Combobox und möchte über die Zwischenablage Strg+V Zahlen einfügen.
Das klappt aber nicht so recht, da die Combobox diese Tastenkombination offenbar selber ausführt.
Beim Einfügen muss noch geprüft werden, ob das alles Ziffern sind. Alles andere muss gelöscht werden, damit es nicht in die Combobox gelangt.

Delphi-Quellcode:

procedure TfEnterManu.cbManuListKeyPress(Sender: TObject; var Key: Char);
begin
  s := ClipBoard.AsText;
  for i := 1 to length(s) do begin
    if CharInSet(s[i], ['0'..'9']) then cbManuList.Text := cbManuList.Text + s[i];
  end;
  Key := #0;
end;

oder so

Delphi-Quellcode:

procedure TfEnterManu.cbManuListKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var s : String;
    i : integer;

begin
  if (Shift = [ssCtrl]) and (Key=ord('V')) then begin
    s := ClipBoard.AsText;
    for i := 1 to length(s) do begin
      if CharInSet(s[i], ['0'..'9']) then cbManuList.Text := cbManuList.Text + s[i];
    end;
  end;
  key := 0;
end;

Ist bestimmt ganz einfach und ich übersehe etwas.

[himitsu]

Erstmal mußt du schauen wo/wann Strg+V von der Komponente ausgeführt wird.
> jeweils KeyDown, KeyUp, KeyPress und FormKeyDown, FormKeyUp, FormKeyPress (KeyPreview=True) ein Key=0 rein, einzeln und Kombinationen und schauen wann Strg+V nicht mehr verarbeitet wird (meist reicht KeyDown und/oder KeyUp)

Dann hast du erstmal das Sperren und dann würde ich die eigene Bearbeitung an der selben Stelle einfügen, um im System ein einheitliches Verhalten der Komponente zu beizubehalten.



Dazu gehört auch wie und vorallem wo man einfügt.
Und gerade bei solchen Kompoenten ist es doch irrsinnig die Setter viele Male pro Zeichen aufzurufen.

Delphi-Quellcode:

S := ClipBoard.AsText;
for i := Length(S) downto 1 do
  if not CharInSet(S, ['0'..'9'] then  // ausmisten
    Delete(S, i);
if S <> '' then begin  // nur machen, wenn es was zum Machen gibt (hier wegen dem eventuellen Löschen, was man nicht immer machen sollte)
  Edit.SelText := S;  // an aktueller Stelle einfügen und eventuell Selektiertes überscheiben
  Edit.SelStart := Edit.SelStart + Edit.SelLength;  // Cursor hinter das Eingefügte
end;
Key := 0;  // hier mal immer das Standardverhalten aus ... normal schalte ich das nur aus, wenn die eigene Aktion lief, also im IF

[ZYLAGON]

Also im KeyUp funktioniert der Code (Dein Beispiel 2) bei mir.

VG ZYL

[zeras]

Zitat von himitsu:

Erstmal mußt du schauen wo/wann Strg+V von der Komponente ausgeführt wird.
> jeweils KeyDown, KeyUp, KeyPress und FormKeyDown, FormKeyUp, FormKeyPress (KeyPreview=True) ein Key=0 rein, einzeln und Kombinationen und schauen wann Strg+V nicht mehr verarbeitet wird (meist reicht KeyDown und/oder KeyUp)

Dann hast du erstmal das Sperren und dann würde ich die eigene Bearbeitung an der selben Stelle einfügen, um im System ein einheitliches Verhalten der Komponente zu beizubehalten.



Dazu gehört auch wie und vorallem wo man einfügt.
Und gerade bei solchen Kompoenten ist es doch irrsinnig die Setter viele Male pro Zeichen aufzurufen.

Delphi-Quellcode:

S := ClipBoard.AsText;
for i := Length(S) downto 1 do
  if not CharInSet(S, ['0'..'9'] then  // ausmisten
    Delete(S, i);
if S <> '' then begin  // nur machen, wenn es was zum Machen gibt (hier wegen dem eventuellen Löschen, was man nicht immer machen sollte)
  Edit.SelText := S;  // an aktueller Stelle einfügen und eventuell Selektiertes überscheiben
  Edit.SelStart := Edit.SelStart + Edit.SelLength;  // Cursor hinter das Eingefügte
end;
Key := 0;  // hier mal immer das Standardverhalten aus ... normal schalte ich das nur aus, wenn die eigene Aktion lief, also im IF

Danke für den Tipp. Ich habe das nun mit der Abfrage
  if (Shift = [ssCtrl]) and (Key=ord('V')) then begin ins KeyDown eingebaut. Nun scheint es zu gehen. Will nochmal alle Konstellationen durchprobieren.
Anfangs hatte ich ein MaskEdit drin. Da war dann schon alles fertig. Aber meine Kollegen wollten eine Box mit Auswahl.

Zitat von ZYLAGON:

Also im KeyUp funktioniert der Code (Dein Beispiel 2) bei mir.

VG ZYL

Warum das jetzt geht? War wohl gestern nicht mein Tag. Habe es, wie oben beschrieben, ins KeyDown geschrieben. Aber in KeyUp sollte es genauso gehen.

[Dalai]

Und was ist mit Shift+Einfg und dem Einfügen per Kontextmenü?

Grüße
Dalai

[Luckie]

Sollte man die Valitätsprüfung dann nicht besser ins OnChange oder bei Verlassen des Edits machen?