Agregar texto en primera fila de TStringrid

[compuin]

Aqui la declare

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);

private
{ Private declarations }

[Casimiro Noteví]

No olvides las etiquetas para código, gracias:

[[escafandra]]

Empezado por compuin

Aqui la declare

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);

private
{ Private declarations }

En el IDE debes ir a Eventos del TSringGrid y buscar OnDrawCell Haces dobleclick y se abrirá en el editor de código con la función preparada para escribir. Allí pega el código que puse. Si lo haces "a mano" No debes poner Form1.

Código Delphi [-]
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Pero luego tienes que is al editor de eventos igualmente para que quede asignado dicho evento.




Saludos.

[compuin]

Ya lo intente

Coloco el procedure y se ejecuta el formulario pero no hace el arreglo en el grid

[[escafandra]]

Empezado por compuin

Ya lo intente

Coloco el procedure y se ejecuta el formulario pero no hace el arreglo en el grid

No has asignado el evento


Saludos.

[compuin]

Cuando trato de asignarlo me da error apuntando al nombre de la procedure

Sera que no lo estoy haciendo bien ??

[[escafandra]]

Borra todo y deja que delphi lo haga. Cuando se muestre el editor de código, escribes el código que te puse.


Saludos.