Hola DOS.
Cita:
Empezado por DOS
lo que tu pones parece como que quieres crear los combobox,
|
Así es. Y esa idea la inferí basándome en el código de tu mensaje
#4:
Cita:
Empezado por DOS
...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;
|
Si agregaste los combos en tiempo de diseño no es necesario invocar a su constructor...
Por otro lado y por el comentario en tu código ("inicializo la variable"), veo que tenes una confusión entre la variable del objeto y sus propiedades.
Si el objeto ya esta creado (y lo está ya que fue echo en tiempo de diseño), lo que sigue es asignarle valores a la/las propiedades de la instancia de el/los
TComboBox.
Con los combos creados en diseño y tu código estás eliminando el Parent previo, un ejemplo para que compruebes lo que estoy diciendo:
Código Delphi
[-]
procedure TForm20.BitBtn4Click(Sender: TObject);
begin
ShowMessage('Soy cbHoras, mi padre es: ' + cbHoras.Parent.Name);
cbHoras := TComboBox.Create(Application);
if cbHoras.HasParent then
ShowMessage('No es posible, ¡ Mi padre es inmortal !'
else
ShowMessage('Ahora soy huérfano, acaban de matar a mi padre...');
end;
Saludos