DBEditFeld Text anfügen geht nicht

[nachtstreuner]

Hallo Delphifreunde,

ich habe auf einer Form 2 DBEditfelder(TEL) + (FAX), in dem ersten befindet sich die Tel. Nr z.B. 0865 708 92 11,
im zweiten DBEditfeld soll nun, sobald dieses 2.DBEdit den Focus erhält, ein Tel des Strings aus dem ersten DBEdit Feld (Tel)
eingetragen werden. z.B. 0865 708 92. Dies funktioniert auch, aber sobald ich ein Zeichen hinter dem Text in DBEdit2 (Fax)
anhängen möchte, wird das 2. DBEditfeld komplett gelöscht. BeispielCode:

Code:

procedure TfrmAdmin.DBEdit_MA_FAXEnter(Sender: TObject);
begin
  TsuiDBEdit(Sender).Color := $00C6FFFF;
  IF DBEditTEL.Text<> '' then begin
     DBEdit_MA_FAX.Text := Leftstr(DBEditTEL.Text,11);
     //DBEdit_MA_FAX.SelText := DBEdit_MA_FAX.Text;
  end;
end;

Wie kann ich es lösen, das der Teil der Telefonnummer stehen bleibt und ich nur die 2 stellige Faxnummer anhängen kann ?

Vielen Dank für eure Hilfe.

mfg
Nachstreuner

[DeddyH]

Für eigene Eingaben würde ich "normale" Edits nehmen, die nicht an DB-Feldern hängen. Da kannst Du dann schalten und walten, wie Du lustig bist.

[nachtstreuner]

Danke DeddyH,

will heißen, für DBEditFelder gibts hierzu keine Lösung ?
DBEditfelder deswegen, weil die Daten bei verlassen des Feldes sofort in die DB eingetragen werden sollen.

gruss nachtstreuner

[DeddyH]

Das Speichern kann man ja auch selbst anstoßen. Zumindest erscheint mir das einfacher als mit den datensensitiven Controls herumzuhantieren.

[Mavarik]

Zitat von nachtstreuner:

Dies funktioniert auch, aber sobald ich ein Zeichen hinter dem Text in DBEdit2 (Fax)
anhängen möchte, wird das 2. DBEditfeld komplett gelöscht.

Das Feld wird gelöscht, weil es noch selektiert ist?

Sonst sehe ich keinen Grund...

Oder hab ich das falsch verstanden?`

Mavarik

[nachtstreuner]

Hallo Maverik,

doch das 2. DBFeld hat den Focus, und einen Teilinhalt vom 1.DBedit. Der Cursor steht am Ende des textes im 2.DBEdit.
Sobald ich nun die Ziffer 22 eingeben möchte, werden alle Zeichen davor gelöscht.

mfg Nachtstreuner

[Mavarik]

hmm Versuch mal

Delphi-Quellcode:

Selstart := length(XY);
SelLength := 0;

Mavarik

[nachtstreuner]

Hallo deddyH,

habe nun doch ein Editfeld genommen.
Vielen dank.