Campo.Visible := False; ¿Porque no esconde los controles?

[xander]

Esto es lo que no quería hacer pero es lo único que me ha funcionado hasta ahorita:

Código Delphi [-]
procedure TForm4.Button1Click (Sender: TObject);
var
  i:    integer;
  Liga: TFieldDataLink;
begin
  for i := 0 to ControlCount - 1 do
  begin
    Liga := EnlacCampObje (Controls[i]);
    if Assigned (Liga) then
    begin
      if Liga.FieldName = 'SIZE' then
      begin
        TWinControl (Liga.Control).Hide;
      end;
    end;
  end;
end;

Pero como ven tengo que recorrer todos los controles de la forma para saber si estan asociados con el campo que quiero esconder, en todo caso quisiera mejor poder acceder a una lista de controles que dependen del campo para ir directo a esos controles... además este código asi tal cual no funciona para las columnas de un DBGrid, tendría que modificarlo todavia para que soporte eso. ¿alguna idea?

[[maeyanes]]

Hola...

Según la ayuda.. la propiedad Visible de un TField solo sirve para indicar si este se muestra o no en un data grid...

En tu código no necesitas del TDataLink para saber si un campo está o no asociado a un control... Podrías intentar con lo siguiente:

Código Delphi [-]
procedure HideFieldControls(AForm: TForm; AField: TField);
var
  I: Integer;
  PropInfo: PPropInfo;
  FieldName: string;

begin
  for I := 0 to Pred(AForm.ControlCount) do
  begin
    PropInfo := GetPropInfo(AForm.Controls[i].ClassInfo, 'DataField');
    // Si existe la propiedad DataField en el componente
    if Assigned(PropInfo) then
    begin
      //Obtenemos el nombre del campo y lo comparamos con el que enviamos al procedimiento
      FieldName := GetStrProp(AForm.Controls[i], PropInfo);
      if (AField.FieldName = FieldName) and (AForm.Controls[i] is TWinControl) then
        TWinControl(AForm.Controls[i].Hide
    end
  end
end;

Esto lo hice de memoria y sin probarlo, espero te sirva...



Saludos...

[xander]

Empezado por maeyanes

Según la ayuda.. la propiedad Visible de un TField solo sirve para indicar si este se muestra o no en un data grid...

Sip pero ya no funciona si le has agregado las columnas como persistentes al DataGrid... por eso busco otra forma

Empezado por maeyanes

En tu código no necesitas del TDataLink para saber si un campo está o no asociado a un control... Podrías intentar con lo siguiente:

Lo habia pensado inicialmente así, pero es preferible hacerlo con el objeto TDataLink porque no en todos los controles DBAware la propiedad se llama DataField, en algunas librerías solo es Field, en otras FieldName y en otras ni siquiera existe como propiedad sino que es parte de una propiedad compleja que se guarda locamente en los recursos del formulario

Todavia no puedo creer que no exista modo de hacerlo directamente desde el campo... Como algo tan sencillo tiene que ser tan chapucero.

PD. ya estoy pensando en ponerselos como un hilo de esos clásicos que luego surgen de: "A ver quien puede con esto... a ver si muy salsas..." para que aunque sea me la mienten

[[Lepe]]

Tú mismo has dicho la solución:

"en todo caso quisiera mejor poder acceder a una lista de controles que dependen del campo para ir directo a esos controles."

Podrías usar un TStringList donde guardas el nombre del campo. El objeto asociado a ese elemento sería un TObjectList que guarda la lista de controles asociados al campo. Aunque me parece tedioso.

¿Por qué quieres ocultar ese control y/o columna del Grid?
¿Es acaso temas de privilegios de usuarios?
¿Es solo el campo llamado "SIZE" o son muchos otros?

Otra solución: Se podría tener una propiedad en la ventana llamada HideSIZE:Boolean , al establecer dicha propiedad, oculta o no los controles específicos de ese Form.

Edito: Un campo puede tener 4 DBEdits asociados a él, y solo tiene una propiedad FocusControl por lo que, a priori, no puedes saber qué controles tiene asociado.

Saludos

[xander]

Empezado por Lepe

Podrías usar un TStringList donde guardas el nombre del campo. El objeto asociado a ese elemento sería un TObjectList que guarda la lista de controles asociados al campo. Aunque me parece tedioso.

Para hacer eso tendría que hacer lo mismo que en el código que puse, y que es lo que no quería hacer, recorrer todos los controles de la forma y ver cual esta asociado con el campo que quiero

Empezado por Lepe

¿Por qué quieres ocultar ese control y/o columna del Grid?
¿Es acaso temas de privilegios de usuarios?
¿Es solo el campo llamado "SIZE" o son muchos otros?

La idea es hacerlo para cualquier campo... El que puse como SIZE es un ejemplo bien burdo, en cualquier caso es solo parametrizar el campo que me interesa si lo decidiera hacer así... y si, es para que se pueda indicar para cada grupo de usuarios quienes si pueden ver y quienes no ciertos campos... quiero hacerlo a este nivel porque deseo que cualquier hijo de vecino pueda asignar los permisos estos... por eso no me quiero meter con los privilegios de cada usuario en la BD... solo que se puedan mostrar o no ciertos controles... ya tengo bien digerida la idea de como va a ser esto, lo único es que no quería hacer lo que aqui les puse, por eso mi pregunta era como obtengo el puntero a ese control a partir del campo.

Empezado por Lepe

Edito: Un campo puede tener 4 DBEdits asociados a él, y solo tiene una propiedad FocusControl por lo que, a priori, no puedes saber qué controles tiene asociado.

Eso no me preocupa porque en el caso en el que pienso aplicar esto solo hay un control por cada campo, pero algunos son Columnas de un Grid otros estan en controles DBAware derivados de TCustomEdit... etc...

Me sorprende que personas que lleven tantos programas de BD a cuestas nunca se hayan topado con esto o no lo hayan resuelto de alguna manera elegante.