probleme de test avec un if...

Question

Pourquoi mais if ne marche pas pour moi c'est un grand mystere

procedure WndProc(var Message:TMessage); override;

procedure TEditNombre.WndProc(var Message : TMessage);
var Touche:word;
begin
  Touche:=message.WParam;

  case Message.Msg of
    WM_KeyDown : begin
//                   showmessage(inttostr(Touche));
                 end;
    WM_Char    : begin
//                   inherited WndProc(Message);
                   if Touche in [107,109] then showmessage('J''appuie sur un signe');
                   if Touche in [96..104] then showmessage('J''appuie sur un chiffre');
                 end;
    WM_KeyUp   : begin

                 end;
  else inherited WndProc(Message);
  end;
end;

yvemoreau · Answer

teste avec edit1 key down
procedure TForm1.EditNombreKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key in [107,109] then showmessage('J''appuie sur un signe');
  if Key in [96..104] then showmessage('J''appuie sur un chiffre');
end;

c'est probablement pas le if qui est en cause mais plus l'affectation
Touche:=message.WParam;

ou le
case Message.Msg of
WM_KeyDown : 
qui ne s'exécute jamais...utilise le pas à pas...

yve

yoghisan · Answer

Non je me suis planté dans les chiffres entrecrochets. Mon erreur est du a ce que j'ai cru que le message de "WM_KeyDown" etait le meme que le message de "WM_Char"

Donc c'etait plus :
c'est probablement pas le if qui est en cause mais plus l'affectation Touche:=message.WParam;

Merci

Probleme de test avec un if...

2 réponses

Votre réponse

Discussions similaires