Gravar valor nulo em TDBRadioGroup

Delphi

21/10/2004

Olá! Existe alguma maneira de fazer com que um item do DBRadioGroup grave o valor ´null´ em um campo da tabela?


Delphi32

Delphi32

Curtidas 0

Respostas

Motta

Motta

21/10/2004

faço da seguine forma, um popupmenu com um item de nome no evento OnClick , faço um Clear no TField e torno o ItemIndex do dbradio = -1 .

não sei de jeito melhor


GOSTEI 0
Motta

Motta

21/10/2004

Pode ser até um pop apenas , tome cuidado de só liga-lo a radios ...




procedure Tfrmxxxx.Desmarca1Click(Sender: TObject);
begin
// Anula a marcação do Radio (deixa sem nenhuma marcação),
// testando qual componente chamou
inherited;
TDBRadioGroup(popRadio.PopupComponent).ItemIndex := -1;
TDBRadioGroup(popRadio.PopupComponent).Field.Clear;
end;


GOSTEI 0
POSTAR