Esto no lo puedes hacer en diseño?
Cita:
Posteado originalmente por cisterpe
Edit1.BiDiMode := bdRightToLeft;
Edit2.BiDiMode := bdRightToLeft;
Edit3.BiDiMode := bdRightToLeft;
....
Edit65.BiDiMode := bdRightToLeft;
// fin alineacion a la derecha
|
Si no es así, vamos a reducir las lineas (aprovechando que todos se llaman igual menos en el número)
Código:
var
i : integer;
begin
for i:= 1 to 65 do
begin
TEdit(FindComponent('Edit' + IntToStr(i))).BiDiMode := bdRightToLeft;
end;
mejor, verdad?
Lo que hacemos es buscar el componente mediante FindComponent casteandolo a un TEdit (que sebemos de antemano que lo es) y acceder a la propiedad que queremos.
Bueno, con lo que respecta a la Query, cuando dices que no te funciona... a qué te refieres? no hace el Open? hace el Open pero no se visualizan valores? hace el Open, visualiza valores pero son erroneos? Tienes la Query enlazada a algún componente DataAware para visualizar sus valores? La tierra es redonda? Mi mamá me mima?
