Disabilita beep tasto enter
''disable "enter" beep
$include "rapidq.inc"
$typecheck on
declare sub keydown(key as integer,shift as integer)
Create form as qform
create Edit1 as QEdit
onkeydown=keydown
Left=6
Top=6
end create
end create
form.showmodal
sub keydown(key as integer,shift as integer)
if key=13 then KillMessage(edit1.Handle, &H102)
end sub
|