RE:tamaño celdas string grid
Se me ocurre algo así:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
private
{ Private declarations }
public
Columna, Fila: Integer; //La fila y columna en la que hacemos click
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Length (StringGrid1.Cells[Columna, Fila])>=3 then
Key:=#0;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
Columna:=ACol;
Fila:=ARow;
end;
end.
Ten en cuenta que esto impide que se introduzcan más de 3 caracteres por celda, pero aún se puede copiar/pegar más de 3. Te dejo eso a tí. Si te surje cualquier duda, aquí estamos.
Saludos.