Discussion :

[looping]

bonjour,


lors de la fermeture d'une fenetre je voudrais controler que des tables ne soient pas ouvertes en insertion ou edition en me servant de l'événement 'onclose' de la form

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (table1.State in[dsedit, dsinsert]) or (table2.State in[dsedit, dsinsert]) =false then
begin
 
table1.Active:=false;
table2.Active:=false;
 
end
else
begin
showmessage('Sortie impossible en mode insertion ou modification');
end;
end;

le problème c'est que la form se ferme quelque soit les conditions du IF
si les tables sont en insertion ou edition, le message s'affichent bien mais la fenetre se ferment quand meme ?

je voudrais bloquer la fermeture de la fenetre en cas de condition "vrai"
est ce qu'il faut utiliser exit ou break ?

merci

[Cl@udius]

Salut

Un p"tit coup de sur l'évènement OnClose t'aurais mené à la description du paramètre Action de type TCloseAction:

Description

TCloseAction comprend les valeurs suivantes :

Valeur Signification

caNone La fiche n'est pas autorisée àse fermer et rien ne se passe.
caHide La fiche n'est pas fermée,juste cachée.L'application peut toujours accéder àla fiche.
caFree La fiche est fermée et toute la mémoire allouée àla fiche est libérée.
caMinimize La fiche est réduite,pas fermée.

Il suffit donc d'affecter la valeur caNone au paramètre Action, et le tour est joué.

@+ Claudius

[Rayek]

Il serait plus judicieux d'utiliser l'évènement OnCloseQuery qui est fait exactement pour ce que tu veux faire.
Et de laisser dans le OnClose vraiement que les actions de fermetures/destructions des composants.

[Cl@udius]

Il serait plus judicieux d'utiliser l'évènement OnCloseQuery qui est fait exactement pour ce que tu veux faire.

+1

Effectivement Rayek a raison, utilise cette évènement et affecte à CanClose True ou False suivant le cas.

@+