Gravar valor nulo em TDBRadioGroup
Olá! Existe alguma maneira de fazer com que um item do DBRadioGroup grave o valor ´null´ em um campo da tabela?
Delphi32
Curtidas 0
Respostas
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
não sei de jeito melhor
GOSTEI 0
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;
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