TEdit Cursorposition ermitteln

maikhaenig

Hi,

Mit welcher Funktion kann ich bei einem Edit feld die Cursorposition ermitteln bezeihungsweise setzen

MfG

akari

Hallo

siehe die Eigenschaften TEdit::Sel* in der Builder-Hilfe.

bis bald
akari

maikhaenig

Hi,

die Sel eigenschaften beziehen sich doch nr auf den markierten Text und nicht auf die Cursorposition.

MfG

maikhaenig schrieb:

Hi,

die Sel eigenschaften beziehen sich doch nr auf den markierten Text und nicht auf die Cursorposition.

MfG Maik

in der hilfe lesen würde helfen, da steht das hier:
Ist kein markierter Text vorhanden, bezeichnet SelStart die Position des Cursors

maikhaenig

danke

dieser Satz ist mir anscheinend entgangen.

MfG

ser1al

maikhaenig schrieb:

danke

dieser Satz ist mir anscheinend entgangen.

MfG Maik

anscheinend

//dummes Beispiel: maximal 4 Zeichen und kein '.' erlaubt
void __fastcall TFORM_Example::Edit1Change(TObject *Sender)
{
  int i, len, start;
  char c;
  AnsiString newText;
  newText = "";
  start = Edit1->SelStart;
  len = Edit1->Text.Length();
  if (len > 4) len = 4;
  for (i = 1; i <= len; i++) {
    c = Edit1->Text[i];
    c = toupper(c);
    if (c != '.') {
      newText += c; //Edit1->Text.Delete(i,1);
    }
    else {
      start = newText.Length();
    }
  }

  //ohne dass man Enabled auf false setzt gehts ein bischen zu rekursiv zu
  Edit1->Enabled = false;
  Edit1->Text = newText;
  Edit1->Enabled = true;

  Edit1->SetFocus(); 
  Edit1->SelStart = start;
  Edit1->SelLength = 0;
}
//---------------------------------------------------------------------------