Alternative zu SetFocus

[qb-tim]

Hi,

in meinem Vokabeltrainerprogramm habe ich Knöpfe erstellt um Sonderzeichen, die es nicht auf regelmäßigen Tastaturen gibt, in ein Edit einzufügen.
In der procedure des Knopfes habe ich die ZeileEdit1.SetFocus; benutzt. Wenn ich jetzt mein Programm laufen lasse, ein paar Buchstaben ins Edit eingebe und anschließend den Sonderzeichenknopf drück markiert SetFocus den ganzen Text!

Was muss ich an SetFocus ändern um den Cursor am Ende des Edit zu schicken?

[shmia]

Wenn du TSpeedButton verwendest (auf seite "Zusätzlich") brauchst du Setfocus gar nicht
verwenden.

[dataspider]

Ansonsten ein Beispiel, wo ein Zeichen an der Cursorposition eingefügt wird:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  AltAutoSelect : Boolean;
begin
  Edit1.SelText := 'ö';
  AltAutoSelect := Edit1.AutoSelect;
  Edit1.AutoSelect := False;
  Edit1.SetFocus;
  Edit1.AutoSelect := AltAutoSelect;
end;

Cu, Frank

[qb-tim]

[konda]

Was verstehts du nicht?

[qb-tim]

Zitat von dataspider:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  AltAutoSelect : Boolean;
begin
  Edit1.SelText := 'ö';
  AltAutoSelect := Edit1.AutoSelect;
  Edit1.AutoSelect := False;
  Edit1.SetFocus;
  Edit1.AutoSelect := AltAutoSelect;
end;

Was machen die einzelnen Befehle. (I mag es nicht Sachen anzuwenden, die ich nicht selbst erklären kann)

[dataspider]

Also, ein weiteres Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Cursor hinter letztes Zeichen
  Edit1.SelStart := Length(Edit1.Text);
  // ein kleines 'ö' an Position schreiben
  Edit1.SelText := 'ö';
  // Focus setzten
  Edit1.SetFocus;
  // Markierung aufheben
  Edit1.SelStart := Length(Edit1.Text);
end;

Für weitere Hilfe bitte F1 in der Delphi IDE...

Cu, Frank

[himitsu]

Oder

Delphi-Quellcode:

i := Edit1.SelStart;
Edit1.SelText := 'ö';
Edit1.SetFocus;
Edit1.SelStart := i + 1;  // ein Zeichen weiter hinten einfügen, also hinter das ö

Ein Tipp:
Die OH bringt wirklich viel zum Vorschein, wenn man etwas zu bestimmten Befehlen wissen will.
Und falls die doch mal etwas nicht wissen sollte ... die Suche in der DP, Google, MSDN und wer weiß wo noch verrät oftmals auch noch massig

[qb-tim]

OK. Danke.