Dbgrid en Delphi 3

[dvd2000]

La cuestión es como accedo directamente a lo que se teclea para contar el nº de caracteres, y si llega por ejemplo a 20, pues abro una ventana.

En fin, espero que alguien me oriente como hacerlo.

Saludos.

[dec]

Hola,

Lo que se teclea se teclea en algún sitio, es decir, en algún componente tipo "TDbMemo" o algo así. Ahora bien, creo que sería a este componente al que tendrías que "preguntar" por el texto que contenga en un momento dado. El propio componente contará con eventos como "OnKeyPress" que podrán echarte una mano. El caso es que no quiero asegurarlo del todo, porque, lo mío no son las bases de datos y ni los componentes "TDb*", o sea, que, estoy suponiendo que funcionan de forma parecida a los "normales", en lo que toca a acceder a sus propiedades, eventos, etc.

[[nlsgarcia]]

dvd2000,

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, DB, ADODB, Mask;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Memo1: TMemo;
    DBMemo1: TDBMemo;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
   MaxLongComment = 30;

var
  Form1: TForm1;
  CountChar : Integer;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if (Length(Edit1.Text) >= MaxLongComment) and (Key <> #8) then
   begin
      Key := #0;
      ShowMessage('Máxima longitud alcanzada');
   end
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
   if (Length(Memo1.Text) >= MaxLongComment) and (Key <> #8) then
   begin
      Key := #0;
      ShowMessage('Máxima longitud alcanzada');
   end
end;

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
   if (Length(DBEdit1.Text) >= MaxLongComment) and (Key <> #8) then
   begin
      Key := #0;
      ShowMessage('Máxima longitud alcanzada');
   end
end;

procedure TForm1.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
   if (Length(DBMemo1.Text) >= MaxLongComment) and (Key <> #8) then
   begin
      Key := #0;
      ShowMessage('Máxima longitud alcanzada');
   end
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if DBGrid1.Fields[DBGrid1.SelectedIndex]=(DBGrid1.DataSource.DataSet.FieldByName('Author')) then
   begin
      if DBGrid1.Controls[0] is TInPlaceEdit then
      with DBGrid1.Controls[0] as TInPlaceEdit do
      begin
         if (GetTextLen >= MaxLongComment) and (Key <> #8) then
         begin
            Key := #0;
            ShowMessage('Máxima longitud alcanzada');
         end;
      end;
   end;
end;

end.

El código anterior muestra ejemplos de como controlar la longitud de un texto en un control de entrada.

Espero sea útil

Nelson.

[dvd2000]

Gracias por los aporte.

He probado los siguiente, según indicaciones de nlsgarcia, pero en tiempo de ejecución me sale siguiente error: Access violation at address 040E915 in module prueba.exe. Read of Address 00000008.

procedure TFprincipal.DBDatosKeyPress(Sender: TObject; var Key: Char);
begin
if DBdatos.Fields[DBDatos.SelectedIndex]=
(DBDatos.DataSource.DataSet.FieldByName('Proveedor')) then
begin
if DBDatos.Controls[0] is TInPlaceEdit then
with DBDatos.Controls[0] as TInPlaceEdit do
begin
if (GetTextLen >= 10) and (Key <> #8) then
begin
Key := #0;
ShowMessage('Máxima longitud alcanzada');
end;
end;
end;
end;


No sé donde puede estar el error.

Gracias por vuestro interes.

[[nlsgarcia]]

dvd2000,

Empezado por nlsgarcia

El código anterior muestra ejemplos de como controlar la longitud de un texto en un control de entrada.

Empezado por dvd2000

En tiempo de ejecución me sale siguiente error: Access violation at address 040E915 in module prueba.exe. Read of Address 00000008.

El ejemplo implementado en Delphi 7 esta en el link: http://terawiki.clubdelphi.com/Delph...Input_Text.rar

La aplicación incluye la BD para que lo pruebes con facilidad.

Espero sea útil

Nelson.

[dvd2000]

Gracias nlsgracia, ya he visto tu ejemplo y es lo que quiero hacer. Es decir Dbgrid1 de tu ejemplo se comporta como yo quiero que se comporte.

Ahora bien, no sé por que razón a mí me sale el error de : Access violation at address 040E915 in module prueba.exe. Read of Address 00000008.. en la siguiente línea:

if DBgrid1.Controls[0] is TInPlaceEdit then

Justo en ese punto salta el error. Supongo que puede ser por tema de versiones de Delphi, tu lo haces con la 7 y yo estoy con la 3. El compilador no da error, y en ejecución pues sí que me salta este error.

Te agradezco mucho el interés mostrado.

Saludos.

[dvd2000]

Por fin, solucionado.

Es curioso, pero de esta forma me da error.

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if DBGrid1.Fields[DBGrid1.SelectedIndex]=(DBGrid1.DataSource.DataSet.FieldByName('Author')) then
begin
if DBGrid1.Controls[0] is TInPlaceEdit then
with DBGrid1.Controls[0] as TInPlaceEdit do
begin
if (GetTextLen >= MaxLongComment) and (Key <> #8) then
begin
Key := #0;
ShowMessage('Máxima longitud alcanzada');
end;
end;
end;
end;



Y de la siguiente forma, funciona:


Columna:=DBrejilla.SelectedIndex; // Averigua numero de columna posicionada.
if columna=1 then
begin
if dbrejilla.Controls[0] is TInPlaceEdit then
with dbrejilla.Controls[0] as TInPlaceEdit do
begin
if (GetTextLen >= 20) and (Key <> #8) then
begin
Key := #0;
ShowMessage('Máxima longitud alcanzada');
end;
end;

end;

Perdon por la indentación, pero no logro que se respete.

Gracias a todos y en especial a nlsgarcia.