Discussion :

[kurul1]

Bonjour à tous

J'ai une boite de dialogue dans laquelle j'ai différents paramètres a régler.
J'ai également un bouton qui va me permettre de règler un autre paramètre.

Lorsque l'on clique sur ce bouton, cela ouvre une form en plein écran qui permet de faire des manipulations sur une vidéo.

Jusque là, pas de problème, ma form s'ouvre bien en plein écran mais c'est quand j'ai terminé mon traitement que cela se gate.

Sur ma form j'ai différents boutons de type speedbutton ou bitbtn. c'est une sorte de MediaPlayer que j'ai confectionner moi même qui permet d'avancer mettre en pause, aller au début, a la fin ou d'avancer image par Image dans les deux sens. J'ai un bouton enregistrer qui enregistre le numéro de l'image en cours quand on clique dessus et un bouton Sortie pour sortir.

je voulais que ma form se comporte comme une boite de dialogue et je n'est pas trouver de propriété ModalResult pour mon Speedbutton Sortie.

Je me suis donc dit, je vais mettre un TButton invisible avec la propriété ModalResultat à mrOk et je vais appeler la méthode OnClick du bouton dans la fonction de Mon bouton Sortie et là j'ai un accès violation.

J'ai essayer de metre mon TButton visible et de cliqué dessus pour sortir et là, pas d'erreur.

Quelqu'un saurait-il de quoi cela peut venir ?

Merci d'avance pour votre aide

[sat83]

Et en mettant simplement dans la fonction de ton SpeedButton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
  ModalResult = mrOk ; // ou mrCancel
}

ou encore si il s'agit juste d'un bouton pour quitter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
   Close() ;
}

[kurul1]

J'ai essayer le close ca me ferme bien la form mais ca ne me redonne pas la main sur la form parent.

[sat83]

Comment fais tu appel à ta seconde Form dans ta Form parent?

[kurul1]

En fait ca y est j'ai trouvé la solution.

Ma form en pleine écran est toujours modale, j'ai juste remplacé mon bouton Sortie de type TSpeedbutton par un TBitBtn et la j'ai accès à la propriété ModalResult.

Et pour appeler ma form dans la forme parent, j'utilise ShowModal()