Muchas gracias ecfisa, lo estuve probando y me tira un error "control has no parent window"
esta es la codificación como quedo a ver si tu te das cuenta de que esta mal, gracias.
Código Delphi
[-] procedure TForm20.BitBtn4Click(Sender: TObject);
var
cbHoras, cbMinutos: TComboBox;
begin
cbHoras:=TComboBox.Create(Application); cbMinutos:=TComboBox.Create(Application);
DBEdit4.SetFocus;
table1.FieldByName('Cod_turnovet').AsInteger:=c;
if table2.FieldByName('Cod_prop').AsInteger=Table3.FieldByName('Cod_prop').AsInteger
then
Table1.Append;
Table1.FieldByName('Hora').Value := hmToDateTime(cbHoras, cbMinutos);
table1.FieldByName('Cod_propi').AsInteger:=Table3.FieldByName('Cod_prop').AsInteger;
table1.Post;
end;
la función
Código Delphi
[-]function hmToDateTime(cbH, cbM: TComboBox): TDateTime;
begin
if (cbH.ItemIndex = -1)or(cbM.ItemIndex = -1) then
raise Exception.Create('Debe ingresar horas y minutos');
Result := EncodeTime(StrToInt(cbH.Items[cbH.ItemIndex]),
StrToInt(cbM.Items[cbM.ItemIndex]), 0, 0);
end;