Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Komponenten über Befehl erstellen (https://www.delphipraxis.net/81728-komponenten-ueber-befehl-erstellen.html)

inherited 3. Dez 2006 14:56

Re: Komponenten über Befehl erstellen
 
AAAlso:
Arrays: http://www.dsdt.info/tutorials/crashkurs/?page=6 ;)

Delphi-Quellcode:
  with bilderchen[high(bilderchen)] do
  begin
    parent:=self;
    top:=markerimage.top;
    left:=markerimage.left;
    picture.loadfromfile('gfx\decal3.bmp');
  end;
ist das gleiche wie

Delphi-Quellcode:
  bilderchen[high(bilderchen)].parent:=self;
  bilderchen[high(bilderchen)].top:=markerimage.top;
  bilderchen[high(bilderchen)].left:=markerimage.left;
  bilderchen[high(bilderchen)].picture.loadfromfile('gfx\decal3.bmp');
und spart Zeit^^

high liefert das höchste elemnt eines Arrays

rawsoul 3. Dez 2006 15:07

Re: Komponenten über Befehl erstellen
 
Super, danke !

Das heißt, es wird jedem Element aus dem Array einen anderer Namen gegeben?
Wie kann ich dann später darauf zurückgreifen? Ich habe nämlich vor, die einzelnen Images später wieder destroyen zu lassen

SirThornberry 3. Dez 2006 16:20

Re: Komponenten über Befehl erstellen
 
Du hast ein Array wo jedes Element eines deiner Images ist. Wie zerstört man ein normales Object? mit ".Free". Wenn nun jedes Array Element ein Object ist liegt es doch mehr als nah wie man es zerstört.

rawsoul 3. Dez 2006 16:51

Re: Komponenten über Befehl erstellen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Merci!

Das ist mein aktueller Stand.

Noch ein Problem...
Delphi-Quellcode:
procedure TForm1.enemyTIMERTimer(Sender: TObject);
begin
  repeat
    begin
      Setlength(enemy1, high(enemy1)+2);
      enemy1[number]:=timage.create(self);
      with enemy1[number] do
        begin
          parent:=self;
          left:=0;
          picture.loadfromfile('gfx\enemy2.bmp');
          transparent:=true;
          top:=2*raster+random(64);
        end;
      number:=number+1
    end
    until number=stage*2
end;
Sobald ich den Timer aktiviere, hängt sich die exe auf. Was stimmt da schon wieder nicht?

//edit
Hat sich erledigt, der Buffer war überlastet... :lol:

xZise 3. Dez 2006 20:29

Re: Komponenten über Befehl erstellen
 
Was sollen wir jetzt mit der exe machen?

rawsoul 3. Dez 2006 20:56

Re: Komponenten über Befehl erstellen
 
Gar nichts ;)
Wollte euch bloß einen Einblick davon verschaffen, was ich vor habe...


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:43 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz