Cursorplacering i tedit.text

Tags:    delphi

Når jeg lader mit program ændre teksten i en tedit-komponent, vil jeg efterfølgende selv bestemme hvor cursoren skal stå. Det aktuelle eksempel:

procedure TMain.EditChange(Sender: TObject);
begin
if edit.text='n' then edit.text := 'N/';
end;

Proceduren ændrer min tekst som ønsket, men cursoren står forrest i tekstlinien. Her vil jeg have den til at stå efter / for at kunne fortsætte indtastning i edit.

I det hele taget ønsker jeg at kunne placere min cursor hvor jeg har lyst i min tekst i edit, men desværre findes metoden edit.cursorpos ikke. Men den er der vel nogen der har fikset på anden vis?






1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Når jeg lader mit program ændre teksten i en tedit-komponent, vil jeg efterfølgende selv bestemme hvor cursoren skal stå. Det aktuelle eksempel:

procedure TMain.EditChange(Sender: TObject);
begin
if edit.text='n' then edit.text := 'N/';
end;

Proceduren ændrer min tekst som ønsket, men cursoren står forrest i tekstlinien. Her vil jeg have den til at stå efter / for at kunne fortsætte indtastning i edit.

I det hele taget ønsker jeg at kunne placere min cursor hvor jeg har lyst i min tekst i edit, men desværre findes metoden edit.cursorpos ikke. Men den er der vel nogen der har fikset på anden vis?




<pre>Edit1.SelStart := 2;
</pre>
Emil Melgaard
emil.melgaard@private.dk



t