Ver Mensaje Individual
  #1  
Antiguo 25-04-2005
VRO VRO is offline
Miembro
 
Registrado: abr 2004
Posts: 230
Reputación: 23
VRO Va por buen camino
Array de paneles (TPanel)

HOla vereis, hoy lunes estoy un tanto empanada y no encuentro el error:

Estoy creando un array de paneles(TPanel) en el formulario principal , en la funcion ONCreate de dicho Form,

Os posteo el codigo de todo el formulario:

Código Delphi [-]
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    p:array [1..37,1..15] of TPanel;
    procedure FormCreate(Sender: TObject);
  end;
 
var
  Form1: TForm1;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
 for i:=1 to 37 do
  for j:=1 to 15 do
   begin
    p[i,j]:=tPanel.Create(Self);
    p[i,j].Left:=0;
    p[i,j].Top:=16;
    p[i,j].Width:=50;
    p[i,j].Height:=25;
 end;
end;
end.

pero no hace nada , nada más ejecutar me da el siguiente error:

Class EReadError with message 'Error reading Form1.OnCrete.Invalid property value'. Process
He hecho la misma prueba con TButtons, ya que venían en un hilo de este foro, pero nada el mismo error.

¿Porque da ese error?¿Dñonde estoy metiendo la gamba?

Gracias por todo.
Responder Con Cita