Fórum Gravar valor nulo em TDBRadioGroup #255424
21/10/2004
0
Olá! Existe alguma maneira de fazer com que um item do DBRadioGroup grave o valor ´null´ em um campo da tabela?
Delphi32
Curtir tópico
+ 0
Responder
Posts
21/10/2004
Motta
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
Responder
Gostei + 0
21/10/2004
Motta
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)