Einzelnen Beitrag anzeigen

Benutzerbild von Net7
Net7

Registriert seit: 22. Jun 2004
Ort: Lauenburg
161 Beiträge
 
Delphi 7 Professional
 
#1

Komponente im Array, aber nicht alle Eigenschaften verfügbar

  Alt 13. Apr 2005, 19:47
Hi Leute,

ich habe folgendes Problem. Ich erstellte ein Array of TSpeedbutton um diese Komponente zur Laufzeit erstellen zu können. Ich benutze das Array deshalb weil es sehr viele TSpeedbutton werden.
Das funktioniert auch soweit.

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GLScene, GLObjects, GLWin32Viewer, GLMisc, GLCadencer, StdCtrls,
  GLGraph, GLHUDObjects, ExtCtrls, Menus, GLSkydome, GLzBuffer, jpeg,
  GLVectorFileObjects, GLPortal, VectorTypes, Geometry,GLTexture, Buttons;

type
  TForm1 = class(TForm)
  //und so weiter
  
  private
    { Private-Deklarationen }
  

  public
    { Public-Deklarationen }
  
   Knopf: array [0..10] of TSpeedbutton;

  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

Begin

   Knopf[0]:=Tspeedbutton.Create(self);
   Knopf[0].Name:='kleinerKnopf';
   Knopf[0].Width:=25;
   Knopf[0].Height:=25;
   Knopf[0].Glyph. //jetzt müste LoadFromFile kommen, kommt aber nicht

  end;
end.
Was mache ich falsch??
Die SUFU bemühte ich schon seit Stunden , konnte aber nix brauchbares finden.

Deklariere ich den so:
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GLScene, GLObjects, GLWin32Viewer, GLMisc, GLCadencer, StdCtrls,
  GLGraph, GLHUDObjects, ExtCtrls, Menus, GLSkydome, GLzBuffer, jpeg,
  GLVectorFileObjects, GLPortal, VectorTypes, Geometry,GLTexture, Buttons;

type
  TForm1 = class(TForm)
  //und so weiter
  
  private
    { Private-Deklarationen }
  

  public
    { Public-Deklarationen }
  
   
  end;

var
  Form2: TForm2;
  Knopf: TSpeedbutton;
implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

Begin

   Knopf:=Tspeedbutton.Create(self);
   Knopf.Name:='kleinerKnopf';
   Knopf.Width:=25;
   Knopf.Height:=25;
   Knopf.Glyph.LoadFromFile('menu\rgrahmen.bmp') //jetzt gehts

  end;
end.
Warum funktioniert die Eigenschaft .LoadFromFile bei dem Array nicht?
Was übersehe ich da.

Bin für jeden Tip dankbar.
Marko
So`ne Atombombe kann einem den ganzen Tag verderben!
Eine eigene DLL in C++ geschrieben wird meist ein Sklave für mein Delphi/Pascal.
  Mit Zitat antworten Zitat