Avatar billede futterama Nybegynder
24. februar 2004 - 14:03 Der er 4 kommentarer og
1 løsning

Flytte cursor i Editbox helt til højre

Hejsa,

Jeg har brug for en funktion som gør nøjagtigt det samme som "End"-knappen på keyboardet.

Jeg skal have flyttet keyboardets cursor helt til højre i en Editbox.

Nogen der har et bud?
Avatar billede Slettet bruger
24. februar 2004 - 14:12 #1
procedure TForm1.Button1Click(Sender: TObject);
var
  Line: Integer;
begin
  with Memo1 do
  begin
    Line := Perform(EM_LINEFROMCHAR, SelStart, 0)+1;
    SelStart := Perform(EM_LINEINDEX, Line, 0)-1;
    SetFocus;
  end;
end;
Avatar billede futterama Nybegynder
24. februar 2004 - 14:17 #2
Det virker ikke :-þ

Prøv igen ;-)

PS. Det er en Editbox, ikke et Memo - hvis det har noget at sige...
Avatar billede Slettet bruger
24. februar 2004 - 14:26 #3
Så prøv det her i stedet :o) :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;
  Edit1.SelStart := Length(Edit1.Text);
  Edit1.SelLength := 0;
end;
Avatar billede futterama Nybegynder
24. februar 2004 - 14:30 #4
Se det virker bedre :-)

Tak for hjælpen, og værsågod, 30 veltjente point til dig hvis du lige laver et svar mere :-)

Hej hej ;-)
Avatar billede Slettet bruger
24. februar 2004 - 14:33 #5
Svar :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester