passage de paramètre autmatique entre handle de form ?
bonjour à tous.
Décidement ces derniers jours je suis demandeur.
Mon problème de ce topic est plutot une demande d'information qu'autre chose, il est un peu lié à un autre (enfin juste un peu).
Voilà,
Est-ce possible que lorsqu'on créé des forms dynamiquement que ces forms comportent par exemle un dbgrid dans le lequel j'ai ces 2 evenements :
Mise en gras au clique sur colonne dbgrid
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| procedure TFTravail.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
Begin
With Sender as TDBGrid Do With Canvas Do
Begin
if Column.FieldName = ColonneCliquee then
Begin
Column.Title.Font.Style := [fsBold];
end
else
Column.Title.Font.Style := [];
end;
end; |
Code:
1 2 3 4 5 6
| procedure TFTravail.DBGrid1TitleClick(Column: TColumn);
begin
ColonneCliquee := Column.FieldName;
DBGrid1.Invalidate;
end; |
Lorsque je créé 2 ou 3 ou 10 fenêtres dynamiquement elles ont toutes les mêmes composants et donc les mêmes procédures.
Et bien figurez vous que si j'affiche une table (dans une form créée en dynamique) comportant par exemple :
Table CLIENT
Code, Nom, Adr
et qu'ensuite j'affiche dans la foulé une nouvelle form dynamique comportant cette fois :
Table SALARIE
Code, Nom, Adr
Et bien si je clique sur la colonne de ma première form sur Code , il me mets en gras le mot Code (normal), mais si je passe dans ma seconde form (qui pourtant n'as rien à voir) je récupére la même chose !!!! le mot Code en gras !!!
Hallucinant non ?
Comment ce phénomène est possible ?
Je précise que mes form créées en dynamique sont en fsMDIChild.