VCL - spezielles Edit gesucht

[TurboMagic]

Hallo,

suche ein Tokyo kompatibles Edit mit
folgenden Fähigkeiten:

• es soll immer im Überschreiben Modus sein

• die Rücktaste muss deaktiviert werden können
  oder kein Zeichen löschen

• es soll eine feste Textlänge (32 oder 64) definiert
  werden können

• eingegebene Zeichen sollen gefiltert werden können
  um in einem Fall nur Hex Zeichen zu akzeptieren

• Es soll im OnExit nicht meckern, wenn weniger als
  die maximale Zeichen Zahl eingegeben wurde

• Vorzugsweise kostenlos aber nicht Voraussetzung

Grüße
TurboMagic

[Aviator]

Ich glaube kaum, dass es eine TEdit Komponente gibt, die dir genau das bietet. Aber mal ehrlich. Die Funktionen hast du doch in nicht mal einer Stunde mit einem normalen TEdit selbst programmiert.

[TurboMagic]

Wenn du mir sagst wie...
Habe im Keypressednach vkBack geschaut
und wenn gedrückt key auf #0
gesetzt, hat aber trotzdem
Zeichen gelöscht :-(

[jziersch]

Mit einem MaskEdit sollte sich das eigentlich realisieren lassen.

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

[TurboMagic]

Zitat:

Zitat von jziersch (Beitrag 1433227)

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;

[peterbelow]

Zitat:

Zitat von TurboMagic (Beitrag 1433212)

Hallo,

suche ein Tokyo kompatibles Edit mit
folgenden Fähigkeiten:

Gehen wir mal der Reihe nach durch. Leider sind die Sepzifikationen, wie üblich, ziemlich unvollständig :wink:.

• es soll immer im Überschreiben Modus sein

Das läßt sich erreichen, wenn man in OnKeyPress SelLength auf 1 setzt, wenn das Zeichen kein Steuerzeichen ist, SelLength nicht 0 ist und SelStart nicht gleich GetTextLength ist.

• die Rücktaste muss deaktiviert werden können oder kein Zeichen löschen

Wie sieht es mit anderen Tasten aus, die auch Zeichen löschen? Entf, Strg-X? Wie mit Einfügen aus der Zwischenablage?

• es soll eine feste Textlänge (32 oder 64) definiert werden können

TEdit hat eine Eigenschaft MaxLength, die man entspreched setzen kann.

• eingegebene Zeichen sollen gefiltert werden können um in einem Fall nur Hex Zeichen zu akzeptieren

Das geht in OnKeyPress. Auch hier stellt sich die Frage, wie man Einfügen aus der Zwischenablage behandeln soll.

• Es soll im OnExit nicht meckern, wenn weniger als die maximale Zeichen Zahl eingegeben wurde

Das ist der Default, da muss man nichts programmieren.

• Vorzugsweise kostenlos aber nicht Voraussetzung

Selber machen kostet nix :wink:

Ich habe gerade ein Bißchen Zeit und werde mal sehen, was ich da zusammenschrauben kann.

[TurboMagic]

Zitat:

Zitat von Klaus01 (Beitrag 1433231)

.. 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