kar64
27-03-2013, 08:56
Salve a tutti.
Nel mio form ho creato un menu composto cosi':
sceltaA(F1)
sub1A(F3)
sub2A(F4)
sceltaB(F2)
sub1B(F5)
sub2B(F6)
ho dichiato due variabili globali
menuA:boolean
menuB:boolean
Ora
quanto premo F1 setto menuA:=true
quanto premo F2 setto menuB:=true
poichè devo evitare che si prema F5 quando ho a video i controlli abbinati al menuA ho inserito il codice:
procedure TForm3.Selezionatutteleschede1Click(Sender: TObject); // scelta F5
begin
if menuA = true then
messagebox(0,'Scelta non attiva. Selezionata scelta MenuA con menuB attivato','Errore', + mb_Ok + mb_ICONWARNING)
else
form3.disponi;
end;
il problema è che quando premo F5 il codice pasa anche dalla voce F1 e mi setta a true la variabile menuA e quindi il messagebox non compare.
Da quello che capisco ' come se la pressione del tasto scandagliasse tutte le voci del menu (eseguendone il codice) fino a trovare quella giusta.
Come posso risolvere ?
Nel mio form ho creato un menu composto cosi':
sceltaA(F1)
sub1A(F3)
sub2A(F4)
sceltaB(F2)
sub1B(F5)
sub2B(F6)
ho dichiato due variabili globali
menuA:boolean
menuB:boolean
Ora
quanto premo F1 setto menuA:=true
quanto premo F2 setto menuB:=true
poichè devo evitare che si prema F5 quando ho a video i controlli abbinati al menuA ho inserito il codice:
procedure TForm3.Selezionatutteleschede1Click(Sender: TObject); // scelta F5
begin
if menuA = true then
messagebox(0,'Scelta non attiva. Selezionata scelta MenuA con menuB attivato','Errore', + mb_Ok + mb_ICONWARNING)
else
form3.disponi;
end;
il problema è che quando premo F5 il codice pasa anche dalla voce F1 e mi setta a true la variabile menuA e quindi il messagebox non compare.
Da quello che capisco ' come se la pressione del tasto scandagliasse tutte le voci del menu (eseguendone il codice) fino a trovare quella giusta.
Come posso risolvere ?