TDBText

[jangbu]

Hallo,

weiß jemand warum es für TDBText kein OnChange Ereignis gibt wie für TDBEdit? Ich muss in Abhängigkeit vom Wert die Farbe ändern, also

OnChange
if DBText1 > 0 then DBText1.Font.Colour := clRed;

jangbu

[mkinzler]

Mach das doch in der Datenmenge

[RavenIV]

Zitat:

Zitat von jangbu

weiß jemand warum es für TDBText kein OnChange Ereignis gibt wie für TDBEdit? Ich muss in Abhängigkeit vom Wert die Farbe ändern, also

OnChange
if DBText1 > 0 then DBText1.Font.Colour := clRed;

Weil sich der Inhalt vom TDBText abhängig vom angehängten Dataset ändert.
Das Dataset (Query oder sonst was) hat bestimmt ein OnChange.

Und mit diesem Codeausschnitt wird es eh nicht gehen...

[mkinzler]

Ich würde das im .AfterScroll des DataSets machen

[alzaimar]

Und ich im OnDataChange (Field=Nil) der Datasource. Das TDataSource gehört auf das Formular, wohingehend das Dataset i.A. nicht auf das Formular gehört, sondern in ein Datenmodul und das Datenmodul nix vom Formulat wissen soll.