Delphi 2009 - CaretPos

Længe siden, at jeg har forsøgt mig med Delphi. Der er noget her, som du muligvis kan tilrette til formålet:

https://www.tek-tips.com/viewthread.cfm?qid=1189107

>falster. Tak for svar. Linket indeholder mange spændende ting, men desværre ikke noget der fungerede rigtigt.
Jeg kom til gengæld til at tænke over, at jeg tidligere har brugt Windows API en del og det hjalp. Jeg har fundet følgende smukke (synes jeg selv) løsning:

Edit1.Setfocus;
Edit1.Perform(WM_KeyDown, VK_END, 0);

Det giver endvidere mulighed for at programmere en selvvalgt position via VK_START, VK_END, VK_RIGTH og VK_LEFT.

Brug SelStart og SelLength.

>hrc: Tak for kommentar. SelStart og SelLength virker ikke - det flytter IKKE Cursor (Caret). Det link som falster sendte mig prøver bl.a dette.
Løsningen fandt jeg selv - se mit indlæg.

Endvidere har jeg skrevet en Function der kan sætte Cursor et hvilket som helst sted i en tekst i TEdit eller TMaskEdit:

Function TextCaretPos(Sender: TControl; L: Integer): Boolean;
// L = Den position Cursor skal sættes
Var
  Ok: Boolean;
  I,  Len: Integer;
  S: String;
Begin
  Ok:=False; S:='';
  If Sender Is TEdit Then S:=(Sender As TEdit).Text
  Else If Sender Is TMaskEdit Then S:=(Sender As TMaskEdit).Text;
  Len:=Length(S);
  Try
    If L>=Len Then Sender.Perform(WM_KeyDown, VK_END, 0)
    Else Sender.Perform(WM_KeyDown, VK_HOME, 0);
    If (L>1) And (L<Len) Then
      For I:=1 To L Do Sender.Perform(WM_KeyDown, VK_RIGHT, 0);
    Ok:=True;
  Except
    //
  End;
  TextCaretPos:=Ok;
End;

Jo det gør. Komponenten mangleder fokus. Prøv det her:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;
  Edit1.Text := 'Hello World!';
  // Edit1.SelLength := 0;
  Edit1.SelStart := length(Edit1.Text);
end;

>hrc: Tak. Ja, det ser også ud til at virke!