سایلنت کردن فرم یا بروزر

[sajioo]

دوستان عزیزم سلام
سوال من اینه که من یک بروزر اتو رفرش در فرمم دارم که هر وقت رفرش میشه صدا میده. می خواستم بدونم چطور این صدا رو نده. از خاصیت silent استفاده کردم ولی وقتی silent := true میشه اون وقت صفحه دیگه اصلا کار نمی کنه؟:متفکر:
سوال دوم هم تقریبا در همین جهته. من در ادیت فرمم دستور دادم وقتی اینتر زده میشه باتن 1 کلیک بشه اما وقتی اینتر رو میزم یک صدای از ویندوز با شنیده میشه. کلا میشه فرم رو سایلنت کرد؟:متفکر:

[tomalaki]

در مورد پرسش دومت، توی اون رویدادی که دکمه اینتر میزنی کد Key := #0; رو قرار بده، خبرش رو هم به من بده.

[sajioo]

مرسی tomalaki . اون حل شد اما همچنان مشکل اولم هست . اصلا راهی برای سایلنت کردن کل فرم نیست؟

[tomalaki]

این رو دیگه نمیدونم. باید صاحب نظران نظر بدن.

[SayeyeZohor]

سلام خدمت دوست گرامي
اينجا برات گذاشتم (http://barnamenevis.org/showthread.php?209792-%D8%B3%D9%88%D8%B1%D8%B3%D9%87%D8%A7%D9%8A-%D9%86%D9%85%D9%88%D9%86%D9%87-%D8%A2%D9%85%D9%88%D8%B2%D8%B4%D9%8A&p=1742702&viewfull=1#post1742702) انشالله مشكلت رفع بشه

[sajioo]

SayeyeZohor عزیز من که متوجه نشدم:متفکر:
کلا کسی میتونه وب بروزر یا فرم رو سایلنت کنه؟

[SayeyeZohor]

من در ادیت فرمم دستور دادم وقتی اینتر زده میشه باتن 1 کلیک بشه اما وقتی اینتر رو میزم یک صدای از ویندوز با شنیده میشه. کلا میشه فرم رو سایلنت کرد؟

شما اين كد رو در formcreate بنويس

//Disable system beep
SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_SENDWININICHANGE);

[SayeyeZohor]

// Either disable the Beep in the OnKeyPress handler:
// Unterdrücke den Beep-Ton entweder im OnKeyPress Ereignis:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then // #13 = Return
begin
key := #0;
// Code...
end;
end;



روش سوم :
// Or in the OnKeyDown-Handler:
// Oder im OnKeyDown Ereignis:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Mgs: TMsg;
begin
if Key = VK_RETURN then
begin
PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
// Code...
end;