Странное поведение Ентера либо я чего то не знаю.

[GAMER]

В программе есть такой кусочек:

Код: Выделить всё

procedure TFrmPass.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_RETURN then
begin
 EnterLogin;
 Close;
end;
if Key=VK_ESCAPE then
begin
 Button3Click(Button3);
 exit;
end;
end;   

В процедуре EnterLogin есть вызов MySQL_Real_Connect.
Так вот, при наличии этого вызова (MySQL_Real_Connect) код в EnterLogin исполняется дважды.
Если этот вызов убрать, код выполняется раз, как и должно быть.
Прикол в том, что если VK_RETURN заменить на VK_END, то тоже все нормально, то есть код в EnterLogin выполняется один раз.
Чем Ентер так отличается от других клавиш?

[Mr.Smart]

Ни чем не отличается.

[dunin]

Было что-то похожее. Что точно уже не помню. На кнопке ModalResult был назначен - событие дважды отрабатывало.

[GAMER]

Нашел я причину. У меня на кнопку было присвоено эту же процедуру, и она была дефолтной. Вот и срабатывало дважды. Вот только не понимаю, какую зависимость давал МайСКЛ? Ну да ладно, уже не важно.

[dunin]

...на кнопку было присвоено эту же процедуру, и она была дефолтной. Вот и срабатывало дважды....

Ну, можно сказать, угадал.

[GAMER]

Вы угадали, а я полдня угробил на поиски причины

[SAK]

В большинстве случаев после обработки желательно обнулять Key.