Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.05 c