Hallo luitjes,

sinds vandaag een nieuw component toegevoegd. Naar aanleiding van een aantal vragen en de al bijna complete code die hier rondzwerft op het forum toch maar aan deze DatabaseTools collectie toegevoegd.

Wat voegt het component toe?

Dit component heeft een property en een event extra gekregen. Door middel van deze property kun je aangeven of de DBCheckbox zijn waarde al direct in het gekoppelde DataField moet schrijven. In het bijbehorende event kun je dan daarna de waarde uitlezen uit het veld. Dat klinkt heel simpel (en dat is het ook)..

Voorbeeldje? Tuurlijk..

Zet de property "UpdateRecordOnClick" op True. Dubbelklik daarna op het nieuwe event "OnAfterToggle". In het ToggleEvent wisselt de DBCheckbox van vinkje aan of uit..

Welke code heb je nu nodig?

Code:
procedure TForm1.NLDDBCheckBox1AfterToggle(Sender: TObject);
  function BoolToStr(Field: TField): string;
  begin
    if Field.AsBoolean then
      Result := 'True'
    else
      Result := 'False';
  end;
begin
  ShowMessage(BoolToStr(ClientDataSet1.FieldByName('BooleanVeld')));
end;
Dit is even een voorbeeldje om aan te geven door middel van een ShowMessage dat de waarde echt veranderd op het moment dat je klikt...