Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Re: delphi7

Добрый день portos_ua,

Tuesday, September 26, 2006, 4:34:58 PM, вы писали:

portos_ua> procedure TForm3.Edit1KeyDown(Sender: TObject; var Key: Word;
portos_ua> Shift: TShiftState);
portos_ua> begin
portos_ua> if key=13 then form3.Button1.Click;
portos_ua> end;

portos_ua> все ок, только остался звук бум от нажатия ентера, как убрать?
portos_ua> Спасибо

Попробуйте form3.button1.OnClick(Self);

Ответить   Tue, 26 Sep 2006 16:50:23 +0300 (#594489)

 

Ответы:

Hello Алексей,

непомогает

Ответить   Tue, 26 Sep 2006 17:11:12 +0300 (#594504)