Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Alternative zu SetFocus

    Delphi
    by dataspider, 17. Mär 2006
  Also, ein weiteres Beispiel:
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  // Cursor hinter letztes Zeichen
  Edit1.SelStart := Length(Edit1.Text);
  // ein kleines 'ö' an Position schreiben
  Edit1.SelText := 'ö';
  // Focus setzten
• Forum: Sonstige Fragen zu Delphi

  Re: Alternative zu SetFocus

    Delphi
    by dataspider, 17. Mär 2006
  Ansonsten ein Beispiel, wo ein Zeichen an der Cursorposition eingefügt wird:
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  Var
  AltAutoSelect : Boolean;
  begin
  Edit1.SelText := 'ö';
  AltAutoSelect := Edit1.AutoSelect;
  Edit1.AutoSelect := False;