вопрос по setFocus

[Максим_Леонидович]

У меня такая ситуация.
при нажатии на энтер, я перемещаюсь по Едит текст.
В некоторых из них при визуализации формы был изначально заложен некоторый текст. однако при переходе фокуса на новое поле Едиттекст этот заложенный текст исчезает.
Если же я перемещаюсь по клавише таб, что не удобно, то все нормально.
Подскажите в чем причина?

[Ozerich]

Не могу сказать в чем проблема.Так как не вижу кода.
А как вариант если перед SetFocus запомнить текст в едите а после его туда записать?

[Максим_Леонидович]

procedure TForm4.FormShow(Sender: TObject);
begin

Form4.DBEdit_Polis_komp.Text := 'РОСНО-МС';
Form4.DBEdit_Polis_ser.Text := '00004';
Form4.DBCheckBox1.Checked:=true;

end;

procedure TForm4.DBEdit_Polis_kompKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key = 13 then
    DBEdit_Polis_ser.SetFocus;
end;

procedure TForm4.DBEdit_Polis_serKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = 13 then
   DBEdit_Polis_num.SetFocus;
end;

Наверно лучше вставлять стандартное значение при исполнении процедуры сразу после передачи фокуса?

[Jupiter]

Попробуйте так:

type
  TForm1 = class(TForm)
    DBEdit_Polis_ser: TEdit;
    DBEdit_Polis_komp: TEdit;
    DBCheckBox1: TCheckBox;
    DBEdit_Polis_num: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure DBEdit_Polis_kompKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit_Polis_serKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DBEdit_Polis_komp.Text := 'РОСНО-МС';   
Form1.DBEdit_Polis_ser.Text := '00004';
Form1.DBCheckBox1.Checked := True; 
end;


procedure TForm1.DBEdit_Polis_kompKeyPress(Sender: TObject; var Key: Char);
begin

  If Key = #13 Then
  DBEdit_Polis_ser.SetFocus;
end;

procedure TForm1.DBEdit_Polis_serKeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #13 Then
  DBEdit_Polis_num.SetFocus;
end;

Всё работает, текст при переходе фокуса не исчезает.

[evg_m]

procedure TForm1.DBEdit_Polis_serKeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #13 Then
  DBEdit_Polis_num.SetFocus;
end;

текст модет исчезать  если при нажатии текст в окне  был выделен 
seltext:=1; seellength= length(text)
такое бывает входе в окно (setfocus)

чтобы этого (потери текста) не происходило в обработчик добавьте 
  key:=#0; 

procedure TForm1.DBEdit_Polis_serKeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #13 Then
  DBEdit_Polis_num.SetFocus;
  key:=0;
end;

[Jupiter]

текст модет исчезать если при нажатии текст в окне был выделен
seltext:=1; seellength= length(text)
такое бывает входе в окно (setfocus)

С таким ещё не сталкивался.

procedure TForm1.DBEdit_Polis_serKeyPress(Sen der: TObject; var Key: Char);
begin
If Key = #13 Then
DBEdit_Polis_num.SetFocus;
key:=0;
end;

А так редактировать едит не получится.

Mожет так?:

procedure TForm1.DBEdit_Polis_serKeyPress(Sender: TObject; var Key: Char);
begin

  If Key = #13 Then
  begin
  DBEdit_Polis_num.SetFocus;
  Key := 0;
  end;
end;

И всё равно немогу понять, как строка может исчезнуть при нажатии на Enter???

Только что проверил - без Key := 0;, и ничего не исчезает.
Нет здесь кода удаляющего строку.

[Максим_Леонидович]

Большое спасибо всем. Разобрался.