Как перескакивать с одного Edit в другой по клику клавиши (стрелки вниз), которая находится под клавишей End ?

Что в это процедуре написать ?

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
ВОТ ЗДЕСЬ чтобы курсор был на втором Edite ?
end;

всего 6 Edit-ов : Edit1,Edit2,Edit3,Edit4,Edit5,Edit6

Чтобы сделать такой цикл Edit1 --> Edit2--> Edit3 --> Edit4 --> Edit5 -->Edit6 --> Edit1

Примерно так:

Код

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Var i:integer; begin  if (Sender is TEdit) and (Key=vk_Down) then    begin      i:=strtoint(copy((Sender as TEdit).name,5,1));      if i=6 then i:=1 else inc(i);      (FindComponent('Edit'+inttostr(i)) as TEdit).setfocus;    end; end;

Не забудь поставить это событие на все Edit

Что то не получилось Написал:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
 var i:integer;
begin
if (Sender is TEdit) and (Key=vk_Down) then
  begin
    i:=strtoint(copy((Sender as TEdit).name,5,1));
    if i=6 then i:=1 else inc(i);
    (FindComponent('Edit'+inttostr(i)) as TEdit).setfocus;
  end;

end;
ПОТОМ

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
 var i:integer;
begin
   if (Sender is TEdit) and (Key=vk_Down) then
  begin
    i:=strtoint(copy((Sender as TEdit).name,5,1));
    if i=6 then i:=1 else inc(i);
    (FindComponent('Edit'+inttostr(i)) as TEdit).setfocus;
  end;
end;

и так до procedure TForm1.Edit6KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);

и никакого результата !!!! Кстати я ещё должен вбивать в Edit цифры для расчёта

Вот не поленился, попробывал, все работает!  Что то ты значит неправильно делаешь? /А ты вообще в Дельфи работаешь? :-)/

Может ты в свойствах компонентов не привязал процедуры к визуальным компонентам? (двойной щелчок по свойству OnKeyDown на вкладке Events в Object Inspector, на каждом из шести Edit`ов)

1) Ставишь свои грешные 6 Edit на форму, смотри не переименовывай их.
2) Нажимаешь Shift, не отпуская его выделяешь все 6 Edit
3) Переходишь на Object Inspector и делаешь двойной щелчёк на событии OnKeyDown
4) В открывшемся коде меняешь процедуру на мою - она будет работать для всех Edit одновременно, нечего плодить код...

Примного благодарен Спасибо всё получилось !!!!

Цитата(Guest @ 21.11.2002, 15:00)

Примного благодарен Спасибо всё получилось !!!!

А теперь попытайся понять что именно делает этот код - вынесешь много интересного. Не стесняйся спрашивать...