Kopírování prvků za běhu prog. – Delphi – Fórum – Programujte.com

TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Trvalé přihlášení

Zapomněl jsi heslo?

Kopírování prvků za běhu prog. – Delphi – Fórum – Programujte.com

Rozšířené hledání ›

Nejnovější témata ve fóru

22:06, Startupy Megastroj.cz – Vše na jednom místě: půjčovna, bazar a inze…

21:17, Inzerce FPGA vývojová deska XILINX VIRTEX 5 ML507

20:59, OS - GNU / Linux Ubuntu a OpenSuse

21:47, Offtopic Digitalizace v Česku

10:10, Cinema 4D Export USDC do DaVinci Resolve

16:58, Photoshop Jak odstranit (potlačit) odlesky

Stavba Laser Arény
Laser Game Brno

Fórum › Delphi

Kopírování prvků za běhu prog.

Navara0

Návštěvník

6. 2. 2010 #1

Zdravím, mám dotaz - lze za běhu programu nějakým způsobem zkopírovat v jednom okně určitý prvek? Například když budu mít třeba Panel, tak napsat něco, aby tenhle panel s věcma který budou na něm se objevily ještě jednou - a aby se z panelem dalo pracovat. Tedy aby zkopírovaný panel měl svoje jmeno (ktere jiste nemuze byt stejne jako jmeno původního prvku).
Díky

Nahlásit jako SPAM

IP: 85.70.13.–

KIIV

~ Moderátor

+43

God of flame

6. 2. 2010 #2

vytvoris dalsi instanci toho typu a zkopirujes potrebny parametry

Nahlásit jako SPAM

IP: 80.250.1.–

_{Program vždy dělá to co naprogramujete, ne to co chcete...}

Navara0

Návštěvník

6. 2. 2010 #3

To KIIV : Ještě trošku jinak, mám pole A1, obsahující prvky TImage, každý obrázek má svoje umístění, svůj Picture atd, a teď když chci prvky tohoto pole zkopírovat jinam:



A1: array of TImage;

B1: array of TImage;



Pocet_Prvku := Length(A1)

B1.SetLength(Pocet_Prvku)



A1 := B1 //tohle vubec nefunguje

a nebo kopírování položek pomocí cyklu:



Pocet_Prvku := Length(A1)

B1.SetLength(Pocet_Prvku)



for pomocna := 1 to Pocet_Prvku do begin

  B1[Pomocna] := TImage.Create(FrameMain.Ramec1);

  B1[Pomocna].Parent := Ramec1;

  B1[Pomocna].Picture := A1[Pomocna].Picture;   //tohle hází chybu

end;

Tady se sice všechny TImage vytvoří i se vším podle předchozího pole, ale hned poté to hodí to chybu Access Violation.

Nahlásit jako SPAM

IP: 85.70.13.–

KIIV

~ Moderátor

+43

God of flame

6. 2. 2010 #4

mozna zkusit B1[pomocna].assign( A1[pomocna].Picture.Bitmap ); (mozna .picture.assign(..) )

Nahlásit jako SPAM

IP: 77.237.136.–

_{Program vždy dělá to co naprogramujete, ne to co chcete...}

MiMi

~ Anonymní uživatel
~ 45 příspěvků

6. 2. 2010 #5

To Navara : Ked vytvaras dynamicke pole tak je toto pole indexovane od 0 cize by si mal mat cyklus for pomocna:=0 to Lengthh(pole)-1 do blablabla; alebo pomocna:=1 to length(pole) do pole2[pomocna-1]:=blablabla;

Nahlásit jako SPAM

IP: 217.145.199.–

KIIV

~ Moderátor

+43

God of flame

6. 2. 2010 #6

To MiMi : ah ano toho sem si ani nevsiml :D

Nahlásit jako SPAM

IP: 77.237.136.–

_{Program vždy dělá to co naprogramujete, ne to co chcete...}

Pedro