| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

12 ©   (2010-05-28 11:48:00) 

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

Форма:
 
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;


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

---

12   (2010-05-28 11:56:00) [1]

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

---

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

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

---

Anatoly Podgoretsky   (2010-05-28 11:51:00) [3]

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

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

---

Наверх