Bonjour,
Chaque fois que j'écris un programme FMX se connectant à une Base de Données je me pose cette question.
Pour une table ou une requête je suis souvent obligé d'y associer un TDataSource soit pour passer des paramètres soit pour obtenir les évènements par exemple:
OnStateChange pour activer/désactiver des boutons.
En effet quand on regarde le BindNavigator les boutons de celui-ci sont "réactifs" or je ne vois pas comment lier la propriété Enabled à des boutons "ordinaires" sauf à coder l'évènement OnStateChange du TDataSet
Ce que je me pose comme question est "suis-je trop habitué aux programmes VCL et ai-je raté quelque chose au niveau des Livebindings ?"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TApposition.DSApposeStateChange(Sender: TObject); var btnEnabled : Boolean; begin btnEnabled:=DSAppose.State in [TDataSetState.dsEdit,TDataSetState.dsInsert] AND Datas.CanModify; btnOk.Enabled:=btnEnabled; btnCancel.Enabled:=btnEnabled; BtnOk.Visible:=Datas.CanModify; BtnCancel.Visible:=Datas.CanModify; end;
Partager