Flyt Tab med mus

Højreklik på editfeltet og vælg Creation order resten giver sig selv

Hov nej det var vist ikke rigtigt, du skal vælge TabOrder i Object inspectoren

sæt alle dine edits OnKeyDown event til at pege på EditKeyDown

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure EditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    FEdits: TList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  FEdits := TList.Create;
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
      FEdits.Add(Components[i]);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FEdits.Free;
end;

procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Idx: Integer;
begin
  if (Key = VK_LEFT) then
  begin
    Idx := FEdits.IndexOf(Sender);
    if Idx = 0 then
      TEdit(FEdits[FEdits.Count - 1]).SetFocus
    else if Idx > 0 then
      TEdit(FEdits[Idx - 1]).SetFocus;
  end
  else if (Key = VK_RIGHT) then
  begin
    Idx := FEdits.IndexOf(Sender);
    if Idx = FEdits.Count - 1 then
      TEdit(FEdits[0]).SetFocus
    else if Idx >= 0 then
      TEdit(FEdits[Idx + 1]).SetFocus;
  end;
end;

end.

Hej Nico22
det ser ud til at virke MEN !!

Kan det ikke også lade sig gøre at lave det således at man kan gå fra edit1 (tab0) og NED til edit3(tab2)??

anold

det bliver svært. Har du overvejet at bruge et stringgrid

jeg vil være meget ked af at skulle til at lave om i mit program
men hvad kan et stringgrid ??

Det kommer også an på dit program, men du kan jo bare prøve at droppe et på en form, så kan du se hvordan det ser ud.

alternativt kan du kode en eventhandler til hver enkelt edit, og så f.eks sige at for Edit1 gælder: ved højre-pil gå til Edit2, ved pil ned gå til Edit3 osv...

\'Ok
Kan du vise mig hvordan jeg gør det ??

kan du ikke sende dit project til mig nico@pc.dk