Problema DBGrid y MEMO

[mizzard]

Empezado por ecfisa

Saludos.

tengo problemas con el explorer 9 y me ha tocado coger el portatil para continuar en el explorer 8 :S

[ecfisa]

Hola.

Borré mi mensaje anteriór por que ví que agregaste el problema, pero fuiste más rápido...

Saludos.

[ecfisa]

Hola mizzard.

Si utilizas el DBGrid sólo para mostrar datos, desde el Object Inspector pone en la propiedad Options , dgEditing = False

Saludos.

[mizzard]

Empezado por ecfisa

Hola mizzard.

Si utilizas el DBGrid sólo para mostrar datos, desde el Object Inspector pone en la propiedad Options , dgEditing = False

Saludos.

Como comente tengo esa opcion ya puesta, pero aun asi cuando hago clic aparece lo q comento

PD: En Explorer 9 no puedo escribir nada

[ecfisa]

Hola.

Que extraño... Lo único que se me ocurre es que actives la opción dgRowSelect de ese modo dgEditing es ignorada.

Saludos.

[mizzard]

Empezado por ecfisa

Hola.

Que extraño... Lo único que se me ocurre es que actives la opción dgRowSelect de ese modo dgEditing es ignorada.

Saludos.

Tambien lo he probado :S.... y alguna opcion para que cuando haga clic con el raton q no haga nada?? como detectar el evento y q no haga nada...

No se me ocurre nada...

[ecfisa]

Hola mizzard.

Lamentablemente para el TDBGrid no funciona ReleaseCapture, pero todavía hay algo que podés hacer para que no aparezca [WIDEMEMO] y es aprovechar el evento OnGetText del campo Descripcion.

Primero que nada, ya no necesitaras del evento OnDrawColumnCell, así que desactivalo.

Si tenés creado el campo persistente sólo tenés que hacer doble click sobre el evento OnGetText del mismo y agregar dos líneas si no, lo podés asignar manualmente por ejemplo en el evento OnCreate del form como en el código siguiente:

void __fastcall TForm1::DescripcionGetText(TField *Sender,
      AnsiString &Text, bool DisplayText)
{
  TStringField *Fd = static_cast<TStringField*>(Sender);
  Text = Fd->AsString;
}

/* (No es necesario si está asignado desde el campo persistente) */
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 DataSet->FieldByName("Descripcion")->OnGetText = DescripcionGetText;
}

Lo que no comprendo es que no te funcione dgEditing, me parece extrañísimo ya que tanto en Delphi como en Builder me funciona correctamente.

Un saludo.