صدا ندادن هنگام فوکوس گرفتن

[parniant]

با سلام
می خوام وقتی از دستور زیر استفاده می کنم صدا نده اینو در keydown نوشتم


if key=13 then
edit1.SetFocus;

چه کاری کنم ؟

[mafazel]

if key=13 then
begin
Key := 0;
edit1.SetFocus;
end;
البته من اینو در KeyPress استفاده می کنم و از Key=#13 و Key := #0

[shask00l]

فکر میکنم توی ویندوز هروقت enter زده میشه . کامپیوتر 1 صدایی از خودش در میاره ... توی دات نت هم همینطوریه ..

[mafazel]

تا جایی که من برخورد کردم اگر پنجره ای ShowModal باشه و دکمه ای با ویژگی Default: True نداشته باشه Enter زده بشه این اتفاق می افته.
بچه ها Default دکمه Ok رو False می کنند که با Enter به ادیت بعدی بروند.