Главная страница
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.072 c
15-1269263611
ocean
2010-03-22 16:13
2010.08.27
Логи ISA 2006


15-1273672717
istok
2010-05-12 17:58
2010.08.27
посоветуйте компоненты для DashBoard...


15-1272740317
adav84
2010-05-01 22:58
2010.08.27
может ли ATTiny13 делать FFT в realtime?


2-1271139972
dj kondakov
2010-04-13 10:26
2010.08.27
case не работает со строками


15-1271696770
hawkins
2010-04-19 21:06
2010.08.27
Не работает подчеркивание ошибок в редакторе делфи