establecer el left y el top de un laber en runtime
hola gente.
tengo almacenado en una db la posicion de los tqrdbtext. para lo cual intento establecer su posicion en runtime pero no consigo resultados.
uso el evento beforeprint del qreport.
aca va el codigo.:
try
datos.q_x.Close;
datos.q_x.SQL.Text := 'select * from posiciones where banco = ' + QuotedStr( datos.q_qr.fieldbyname('banco').AsString);
datos.q_x.Open;
while not datos.q_x.Eof do
begin
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Left := datos.q_x.fieldbyname('left').AsInteger;
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Top := datos.q_x.fieldbyname('top').AsInteger;
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Parent := self;
datos.q_x.Next;
end;
except
end;
__________________
El secreto de la libertad está en no tener miedo.
|