Discussion :

[BrunetteCP]

Bonjour,

J'ai trois TToolButton relié a des actiond standard soit le, TDatasetInsert, TDatasetEdit et TDatasetDelete qui eux sont associé à ma table (datasource). Le problème est que si j'ai aucune record le bouton Edit est accessible??? je ne comprends pas pourquoi. Normalement si j'ai pas de record, le bouton ne devrait être enabled, il devrait être non accessible comme le bouton delete.

Il y a tu une propriété spéciale à attribué pour que le bouton "Edit" je soit pas accessible s'il n'y a pas de record. J'ai vérifier avec le composant TDBNavigator et il fait la même chose le bouton est accessible même si la table est vide. Comme puis-je remédié à la situation.

j'utilise delphi 2010.

Merci de me répondre.

[redoran]

j'ai pas bien compri votre message; c'est normal que le bouton soit accessible si tu donne pas false à sa propriété enabled. sinon laisse le accessible et tu me dans l'évenement onclik

Code :

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

1
2
3
4
5
6
7
8
9
10
if datamodule.tatable.recordcount>0 
//// si la table n'est pas vide fais ce ci....
then 
begin
ton code......
end
else
begin
showmessage.....
end;

[Franck SORIANO]

Le problème est que si j'ai aucune record le bouton Edit est accessible??? je ne comprends pas pourquoi. Normalement si j'ai pas de record, le bouton ne devrait être enabled, il devrait être non accessible comme le bouton delete.

En fait non. Tu peux parfaitement faire un Edit sur un Dataset vide. La VCL comprendra automatiquement que tu veux faire un Insert.
C'est pour ça que les composants de la VCL autorise l'Edit alors que le dataset est vide.

Je ne suis pas un grand adepte des TDatasetAction, mais toutes les actions possèdent un événement OnUpdate. Tu dois pouvoir l'utiliser pour désactiver l'action lorsque le dataset est vide :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm4.DataSetEdit1Update(Sender: TObject);
var
  act : TDataSetAction;
begin
  act := TDataSetAction(Sender);
  TDataSetAction(Sender).Enabled := Assigned(act) and Assigned(act.DataSource) and
    Assigned(act.DataSource.DataSet) and not act.DataSource.DataSet.IsEmpty;
end;