Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Откуда то происходит beep, при закрытии формы. Не надо его.   Найти похожие ветки 

 
12 ©   (2010-05-28 11:48) [0]

Закрываю форму - компьютер пикает, как при предупреждении каком..

Форма:
 
TfrmElNetwork = class(TForm)
...
 public   { Public declarations }
   IdElNetwork : integer;
   NameElNetwork : string;
 end;


Вызывается и отдает так:

var
 frmElNetwork: TfrmElNetwork;

function GetElNetwork(var IdNetwork:integer):string;

implementation
{$R *.dfm}


function GetElNetwork(var IdNetwork:integer):string;
begin
 if frmElNetwork = nil then frmElNetwork := TfrmElNetwork.Create(application);
 frmElNetwork.ShowModal;
 IdNetwork := frmElNetwork.IdElNetwork;
 result := frmElNetwork.NameElNetwork;
end;



зыкрыть форму можно по ESC, так и делаю


procedure TfrmElNetwork.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #27 then
 begin
   EmptyTwo(IdElNetwork, NameElNetwork);
   Close;
 end;


где

Procedure EmptyTwo(var AInt : integer; var AStr : string);
begin
 AInt := Empty;
 AStr := "";
end;


почему пикает, и как сделать, чтоб не пикал?


 
Anatoly Podgoretsky ©   (2010-05-28 11:51) [1]

> 12  (28.05.2010 11:48:00)  [0]

Вот здесь procedure TfrmElNetwork.FormKeyPress(Sender: TObject; var Key:
Char); нет Key :=#0;


 
12 ©   (2010-05-28 11:56) [2]

Причем, как заметил, если фокус не менять (по умолчанию он в gdbride)- не пикает. Если в какой контрл передать (edit, например) - пикает


 
12 ©   (2010-05-28 11:56) [3]

точно, спасибо!



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.161 c
15-1267997404
Юрий
2010-03-08 00:30
2010.08.27
С днем рождения ! 8 марта 2010 понедельник


15-1273077614
Вася
2010-05-05 20:40
2010.08.27
Передача с компьютера на телевизор


2-1269823057
Вася
2010-03-29 04:37
2010.08.27
Свой обработчик для динамически созданного компонента


2-1273573956
Jacksotnik
2010-05-11 14:32
2010.08.27
Помогите с удалением записи


15-1267518173
12
2010-03-02 11:22
2010.08.27
драйвера NVIDIA и клиенты удаленного рабочего стола Microsoft