como editar el caption de una tdbedit boolean

[asdbernardo]

Empezado por Caro

Hola asdbernardo, puedes utilizar el evento OnGetText de tu campo:

Código Delphi [-]
procedure QueryEstadoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
 if Sender.AsBoolean then
  Text := 'Activado'
 else
  Text := 'Desactivado';
end;

Saluditos

Gracias caro muy amable, ahora el procedure es en el dataset? yo utilizo unidac es decir unitable, datasource, etc. alli como va?
porq te recuerdo es un tdbcombobox. y en los eventos no veo el ongettext

Saludos y Gracias de nuevo!

[*Caro*]

Empezado por asdbernardo

....... ahora el procedure es en el dataset? yo utilizo unidac es decir unitable, datasource, etc. alli como va?
porq te recuerdo es un tdbcombobox. y en los eventos no veo el ongettext

Hola, el OnGetText esta en los eventos de tu campo, tu campo debe ser persistente (hacer doble click sobre tu dataset (UniTable) y añades tus campos), seleccionas el campo en cuestión y veras sus eventos.

Saluditos

[asdbernardo]

Empezado por Caro

Hola, el OnGetText esta en los eventos de tu campo, tu campo debe ser persistente (hacer doble click sobre tu dataset (UniTable) y añades tus campos), seleccionas el campo en cuestión y veras sus eventos.

Saluditos

Listo caro, encontre y use tu codigo, Y me mostro lo que queria, pero sigo con el mismo problema, ya que no simula que Activado = true, y tampoco que Desactivado = false, y me marca este error( 'Activado' is not a valid boolean value for field 'borrado' ) me esta generando el mismo error que mostrar directamente desde el tdbcombobox en el parametro Items. y colocar Activado y Desactivado. me marca el mismo error

Saludos caro, de nuevo muchas gracias!

[*Caro*]

Supongo que te da el error al grabar los datos, para que tome los valores correctos, puedes utilizar el evento OnSetText de tu mismo campo:

Código Delphi [-]
procedure QueryEstadoSetText(Sender: TField;
  const Text: String);
begin
 if Text='Activado' then
  Sender.Value := True
 else
  Sender.Value := False;
end;

Saluditos

[asdbernardo]

Empezado por Caro

Supongo que te da el error al grabar los datos, para que tome los valores correctos, puedes utilizar el evento OnSetText de tu mismo campo:

Código Delphi [-]
procedure QueryEstadoSetText(Sender: TField;
  const Text: String);
begin
 if Text='Activado' then
  Sender.Value := True
 else
  Sender.Value := False;
end;

Saluditos

Si es correcto mi querida Caro, pero no tenia conocimientos de estos eventos.. me estoy iniciando en el delphi.. trabajo en un programita sencillo.. GRacias probare y te cuentO!

Saludos !