checkbox component

Checked := (MyIntValue = 1);

kan du ikke bare gøre sådan

ellers lav en nedarvning af dbchkbox og lav en integerproperty der virker som du gerne vil havde det, det kan gøres MEGET nemt hvor du sætter Checked i Set proceduren på din nye property

/Martin

jo, men hvis nu der fantes en sådan, sååååå ville det havde været nemmere :)

Det gør der ikke så vist jeg ved, og det alså kun ca 5 liner\'s kode du skal skrive selv.

Ja jeg må nok kigge på det selv !

Du klikker på din checkbox, går ind øverst i objectincpector under Events, dobbelklikker i det tomme felt og tilføjer følgende linier kode

procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
  if DBCheckBox1.Checked then
    Min_Variabel_Som_Skal_Gemmes_i_DB := 1
  else
    Min_Variabel_Som_Skal_Gemmes_i_DB := 0
end;

fint hvis man kun har 1 checkbox, men hva nu hvis jeg har 10000 stk..

Næææ der er jo lidt idéen med komponenter !!

minimum kode tak :)

Det er jo ikke DATA-Aware. Men jeg har fået den ide at du kan lave en OnSetText OnGetText på dit DBField, og så sætte din værdi i dem, det vil virke fint og uden problemer

jeg syntes stadig det var nemmere med en komponent der bare klarede ærterne :)

If it ain\'t broken don\'t fix it  :-)

Ja så må du jo arve DBCheckBox og tilføje den nødvendige kode, men hvis du kun har en 5-6 styk. kan det ikke betale sig

Jeg har med stor fordel brugt OnGetText og OnSetText event det \"funker\" fint og enkelt

Ja men det virker vel kun hvis du tilføjer felterne ???

Det gør du også hvis du har dem med i dit Select eller table.open delphi creater field\'s on the fly hvis du ikke har lavet dem design time, så det eneste det kræver er at du i dataset\'et OnAftenOpen tilknytter de to event\'s på dine fields, det er faktisk enkelt og let istedet for at lave en comp.