probleme avec fenêtre showmodalRésolu

Question

bonjour, j'ai un probl&#232;me que j'arrive pas &#224; r&#233;soudre avec la fen&#234;tre showmodal.
j'ai 3 fenetres. form1 form2 et form3
1) dans form1 (fiche principal)
 j'ai 2 boutons
 - bouton1 pour lancer form2 en showmodal
 - bouton2 pour fermer la form1
2) dans form2 (fiche pour mot de passe)
- j'ai 1 edit et 2 boutons
- edit1 pour la saisi du mot de passe
- bouton1 pour tester le mot de passe et lancer form3 si Ok
- bouton2 pour annuler et revenir sur form1
3) dans form3 
j'ai
- edit1 dans un groupbox1
- bouton1

le probleme est le suivant: lorsque la form3 s'ouvre l'&#233;v&#232;nement OnActivate de cette fiche me met le focus sur edit1 de form3. jusque l&#224; R.A.S. Mais lorsque je clique sur le bouton1 de form3, la fen&#234;tre form3 semble fig&#233;. le focus ne va pas sur le bouton. Il faut que je clique une 2&#232;me fois pour que le focus soit sur le bouton et que le bouton s'enfonce. Comment r&#233;soudre ce probl&#232;me?
Apparemment lorsque je fais la v&#233;rif en mode pas &#224; pas, l'&#233;v&#232;nement OnActivate serait ex&#233;cut&#233; 2 fois ce qui expliquerait pourquoi je ne peux pas avoir le focus sur le bouton au 1er clic. pourquoi ex&#233;cuterait il 2 fois OnActivate?

voici ce que j'ai ecrit dans form1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;  // ouvre form2 en modal
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  close;  // ferme form1
end
;

voici ce que j'ai ecrit dans form2

procedure TForm2.Button1Click(Sender: TObject);
begin
  if Edit1.Text='oui' then  // si le mot est oui j'entre
  begin
    close;  // je ferme form2
    ShowWindow(Form1.Handle, SW_HIDE);  // je rend invisible form1
    form3.show;  // j'ouvre form3
  end;
end;

voici ce que j'ai ecrit dans form3

procedure TForm3.Button1Click(Sender: TObject);
begin
  form3.Close;  // je ferme form2
  ShowWindow(Form1.Handle, SW_SHOW);  Je rend visible form1
end;


procedure TForm3.FormActivate(Sender: TObject);
begin
   Edit1.SetFocus;  // je mets le focus sur edit1 de form3
end;

si je change dans form1 la ligne Form2.ShowModal; en Form2.Show; cela fonctionne comme je le voudrais mais je n'ai pas la fen&#234;tre form2 en modal

Merci

cs_philpas · Accepted Answer

je pense avoir r&#233;solu le probl&#232;me
la solution est  de mettre &#224; la place de l'&#233;v&#232;nement OnActivate, l'&#233;v&#232;nement OnShow

ni69 · Answer

C'est bien, tu as r&#233;solu ton probl&#232;me, c'est tout &#224; ton honneur ! 

Maintenant, n'oublie pas de cliquer sur le bouton "R&#233;ponse Accept&#233;e" &#224; c&#244;t&#233; de ton cernier post pour que d'autres puissent trouver facilement une r&#233;ponse &#224; leurs propres questions, et pour que ceux qui pensent que ton probl&#232;me n'est pas encore r&#233;solu ne passent plus ici en pensant que le sujet n'est pas cl&#244;s ! 


@+

Nico  { http://www.ni69.new.fr/ }



<hr size="2" width="100%">

N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

Probleme avec fenêtre showmodal

2 réponses

Votre réponse

Discussions similaires