Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Obavezan ENTER ili TAB taster

[es] :: Pascal / Delphi / Kylix :: Obavezan ENTER ili TAB taster

[ Pregleda: 1580 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

juha5803

Član broj: 74797
Poruke: 88
79.143.168.*



Profil

icon Obavezan ENTER ili TAB taster19.07.2014. u 15:50 - pre 118 meseci
Pozdrav,

Kako da "natjeram" korisnika da ne može napustiti polje u koje unosi podatke dok ne stisne EMTER ili TAB tj. da onemogućim da mišem pređe na drugo polje unosa .
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Obavezan ENTER ili TAB taster19.07.2014. u 15:58 - pre 118 meseci
Recimo:

Code:

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Edit1Exit(Sender: TObject);
  private
    FCanLeaveControl: TObject;
  public
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Edit1Exit(Sender: TObject);
begin
  if Sender <> FCanLeaveControl then
    (Sender as TEdit).SEtFocus;
end;

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key in [VK_RETURN, VK_TAB] then
  begin
    FCanLeaveControl := Sender;
    if Key = VK_RETURN then
      SelectNext(ActiveControl, TRUE, TRUE);
  end
  else
    FCanLeaveControl := nil;
end;
 
Odgovor na temu

juha5803

Član broj: 74797
Poruke: 88
79.143.168.*



Profil

icon Re: Obavezan ENTER ili TAB taster20.07.2014. u 15:57 - pre 117 meseci
Zahvaljujem
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Obavezan ENTER ili TAB taster

[ Pregleda: 1580 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.