Cita:
Empezado por lucas05
Hola, tengo DBGrid1(conectado a un ADOQuery) y DBGrid2(conectado a un ClientDataSet).
Como puedo hacer para que los datos que aparecen dentro de las celdas estén ubicados a la derecha o a la izquierda.
|
Hola Lucas.
Código Delphi
[-]
procedure AlinearColumnas(Grd: TDBGrid; Align: TAlignment);
var
i: Integer;
begin
for i:= 0 to Grd.Columns.Count-1 do
Grd.Columns[i].Alignment:= Align;
end;
Para probar el funcionamiento del procedimiento poné un
TRadioButton con tres items: Izquierda - Derecha - Centrado (
en ese orden) y este código en el evento
OnClick del mismo.
Código Delphi
[-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
AlinearColumnas(DBGrid1,TAlignment(RadioGroup1.ItemIndex));
end;
Otro ejemplo de llamada
Código Delphi
[-]
AlinearColumnas(DBGrid1, taRightJustify);
Los valores que podés enviar en el argumento Align son:
taLeftJustify,
taRightJustify y
taCenter.
En cuanto a tu otra consulta recorda que:
preguntas distintas = hilos distintos.
Saludos.