Hola, soy inexperto en esto del delphi, y tengo una duda, tengo el siguiente código:
Código Delphi
[-]
Case cmbalarma.ItemIndex of
0: if ((strtoint(edtcronometro.Text) mod spnalarma.Value)=0) then
begin
windows.Beep(200,200);
end;
1: if (strtoint(edtcronometro.text)>=(60*spnalarma.Value)) then
begin
if ((strtoint(edtcronometro.Text) mod spnalarma.Value)=0) then
begin
windows.Beep(200,200);
end;
end;
end;
El programa consiste en que tengo un edit, y hago que en el evento on change de dicho edit, cada vez que me cambia el valor me compare a ver si en la división del edit entre el spinedit si el resto me da 0 que me haga un sonido
El problema está en que me hace exactamente lo mismo en una que en otra opción
Ejemplo: si el spinedit es un 3 y en el edit pone 3, 6, 9, 12... me sonará en caso de que sea el item del combobox sea 0
si el spinedit pone 3, pero el item del combobox es 0, deberá sonar cuando en el edit ponga 180, 180*2, 180*3...
espero que alguien me pueda ayudar, GRACIAS