Focused mas no selected

[Delfino]

Para lo primero, la propiedad AutoSelect tiene q ser a False, tb puede servirte la propiedad SelStart para posicionarte al inicio del edit.

para lo segundo, pon un combo y asignale csSimple a su propiedad Style, asi tendras una edit..

[*Caro*]

Hola

Para lo primero podrias hacer lo siguiente en el evento OnEnter:

Código Delphi [-]
procedure TgbFrm_Principal.Edit2Enter(Sender: TObject);
begin
       Edit.SelStart:=Length(Edit.text);
       Edit.SelLength:=Length(Edit.text);
end;

Saludos

[elcigarra]

me contesto yo mismo. Para simular el autoselect de un Combo con un TEdit (Edit1) y un StringList (Lista):

Código Delphi [-]
  
procedure TForm1.Edit1Change(Sender: TObject);
var
  i,lon: Integer;
begin
  for i := 0 to Lista.Count-1 do begin
    // para que sea igual al de un combo debe ser case insensitive
    if Pos(UpperCase(Edit1.Text),UpperCase(Lista.Strings[i])) = 1 then begin 
      Lon:= Length(Edit1.Text); // Posición del cursor
      // Le sumo lo que restaría del string coincidente 
      // sin cambiar las cases que ya tengo escritas
      Edit1.Text := Edit1.Text + 
                    AnsiRightStr(Lista.Strings[i],Length(Lista.Strings[i])-Lon);
      Edit1.SelStart := Lon; // Desde donde va a seleccionar
      Edit1.SelLength := Length(Edit1.Text) - Lon; // N° de caracteres a seleccionar
      Exit; // Por si hay más de una coincidencia
    end;
  end;
end;