VCL - spezielles Edit gesucht

[TurboMagic]

Zitat von jziersch:

Mit einem MaskEdit sollte sich das eigentlich realisieren lassen.

Für die Sondertasten abfrage musst Du OnKeyUp und OnKeyDown überschreiben.

Hallo,

TMaskEdit habe ich schon ausprobiert. Wird zuweing eingegeben gibt es immer eine
Ferhlermeldung im OnExit, ohne , dass ich vorher eingreifen konnte.

Ich werde aber Mal TEdit mit OnKeyDown/KeyUp statt KeyPressed ausprobieren.

Grüße
TurboMagic

[TurboMagic]

Hallo,

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftSTate);
begin
  if Key = vk_Back then
    Key := 0;
end;

Das funktioniert nicht auch nicht im OnKeyUp.
Die Zeile mit der Zuweisung wird zwar erreicht (Breakpoint zeigt das), das
eingegebene Zeichen wird aber trotzdem gelöscht.

Und wie ich ein Edit dauerhaft in Überschreibenmodus umstelle, weiß ich auch noch nicht.

Grüße
TurboMagic

[Klaus01]

.. das hilft Dir nicht? -> http://www.delphigroups.info/2/be/163347.html

Grüße
Klaus

[Michael II]

Hast du's mit OnKeyPress versucht? Zum Beispiel so:

Delphi-Quellcode:

procedure TForm103.Edit1KeyPress(Sender: TObject; var Key: Char);
var cursorpos : integer;
begin
  // Filter:
  if not ( key in ['0'..'9', 'A'..'F', 'a'..'f'] ) then
  begin
    key := #0;
    exit;
  end;

  // Überschreibmodus:
(PeterBelow macht das in #9 [unten] viel besser ;-))
  cursorpos := Edit1.SelStart + Edit1.SelLength;
  if cursorpos < length(edit1.text) then Edit1.Text := Copy(Edit1.Text,1,cursorpos) +
  Copy(Edit1.Text,cursorpos+2,maxint);
  Edit1.SelStart := cursorpos;
end;

[TurboMagic]

Zitat von Klaus01:

.. das hilft Dir nicht? -> http://www.delphigroups.info/2/be/163347.html

Grüße
Klaus

Hallo,

das ermöglich zumindest dauerhaft Überschreibmodus zu aktivieren
und auch vk_delete kann im OnKeyDown gefiltert werden, nur vk_Back Filterung wird dort
ignoriert.

Danke schon mal für diese teilweise Hilfe!

Grüße
TurboMagic

[TurboMagic]

Ok, nochmal die Filterung der Rücktaste in OnKeypressed eingebaut:
siehe da im Testprogramm geht es jetzt.

Komisch. Jetzt mal ins richtige einbauen und wieder testen.

Danke für die Hilfe!