[ Brkic @ 14.11.2007. 20:52 ] @
da li je moguce napraviti pomeranje unazad kako sto je to dugme TAB za unapred ??
hteo bih da se u programu pomocu strelica gore i dole moze pometari sa polja ispred i iza.
Znam da mose sa 'SetFocus' sledeceg polja i prethodnog ali mi je to malo komplikovano jer ima puno polja,mozda neko drugo resenje ??
[ Miloš Baić @ 14.11.2007. 22:01 ] @
Pogledaj TJvEnterAsTab u sklopu Jedi(JCL&JVCL).
[ Brkic @ 14.11.2007. 23:21 ] @
Pogledao sam TJvEnterAsTab i ona daje da se na enter predje u sledece polje,nisam nasao da moze da se vrati u polje iznad a to mi je jako vazno.

Moze li pomoc ??
[ savkic @ 14.11.2007. 23:22 ] @
> da li je moguce napraviti pomeranje unazad kako sto je to dugme TAB za unapred ??
> hteo bih da se u programu pomocu strelica gore i dole moze pometari sa polja ispred i iza.

Dodeli svim edit kontrolama sledeći kod za OnKeyDown:

Code:

 case Key of
    VK_RETURN, VK_DOWN: SelectNext(ActiveControl, True, True);
    VK_UP: SelectNext(ActiveControl, False, True);
  end;
[ krle_zr @ 15.11.2007. 00:03 ] @
Code:

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Smer: Integer;
begin
  if key in [VK_UP,VK_DOWN] then
  begin
    if Key = VK_UP then Smer := 1
    else if Key = VK_DOWN then Smer := 0;
    PostMessage(Handle, WM_NEXTDLGCTL, Smer, 0);
  end;
end;
[ Miloš Baić @ 15.11.2007. 00:30 ] @
Citat:
Brkic: Pogledao sam TJvEnterAsTab i ona daje da se na enter predje u sledece polje,nisam nasao da moze da se vrati u polje iznad a to mi je jako vazno.

SHIFT + ENTER kombinacija, koliko se sećam.
[ Brkic @ 15.11.2007. 07:30 ] @
>SHIFT + ENTER kombinacija, koliko se sećam.

jeste radi tako

bolje je sa OnKeyDown i radi kako treba,mogu se birati dugmad...

Hvala puno svima na pomoci.