[Delphi] Splash Screen a Enter

Mam forme główną mdi z niej wywoływany jest Splash Screen na którym umieszczone są dwa Edity i Buttony - logowanie.

Logowanie wywołuje z głównej formy:

procedure TmdiForma.FormCreate(Sender: TObject);
begin
  fmLogowanie:=TfmLogowanie.Create(nil);
  fmLogowanie.ShowModal;
end;

No i jak w pierwszym Edit1 nacisnę enter to Od razu pechodzi do ButtonaOK i wykonuje to co podnim jest podpięte.

Moje pytanie jak wyłączyć działanie klawisza eneter lub zrobić żeby działał jako TAB.
Próbowałem tak

procedure TfmLogowanie.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
 if Key=#13 Then ...;
end;

Ale to nie działa.

Macie może jakieś pomysły. ;)

nie bardzo rozumiem pytania... jesli najpierw wlaczyles dzialanie klawisza enter(czyli jego obsluge) to gdzie problem? Pytanie malo precyzyjne ale z tego co zrozumialem to do newbie.

rkdusiek napisał(a)

No i jak w pierwszym Edit1 nacisnę enter to Od razu pechodzi do ButtonaOK i wykonuje to co podnim jest podpięte.

Może ButtonOK ma ustawioną właściwość Default na True - zmień na False.

Moje pytanie jak wyłączyć działanie klawisza eneter lub zrobić żeby działał jako TAB.

if Key = #13 then
  Edit2.SetFocus;

Może ButtonOK ma ustawioną właściwość Default na True - zmień na False.</ort>

Rzeczywiście tak miałem. Z głowy mi wypadło że to może być to.

Dzięki. Pozdr. ;)