löschen sich komponenten ?

[der t0r]

ich habe folgendes problem: ich habe meine 21 labels auf der form und will diese neu ordnen... nach der umstellung sind aber nicht mehr 21 sondern nur ca 15 übrig...nachdem ich dann mit nem showmessage jeden schritt angeschaut hab sah ich, dass wenn ein label auf seiner "reise" über ein anderes läuft, dieses nur mehr verkrüppelt / gar nicht zu sehen ist...wie kann ich das verhindern mit hide gehts nicht..
könnte ich das vielleicht mit ner neuen form machen , auf der alles wie auf der alten ist? muss ich die von vorneherein haben (wenn ja wie mach ich 2?)oder kann ich die mit create machen(versuch ist schon gescheitert, die kommt einfach nicht...)
HIIIIIIILFEEE!!!! :freak:

[StefanDP]

Kann ich nicht ganz nachvollziehen.
Poste doch mal den Source als Attachement oder so.

Was verstehst du unter "ordnen" und "umstellung"


stefan

[der t0r]

nun gut.. ^^ also die 21 labels werden erzeugt:

Delphi-Quellcode:

for i:=1 to 3 do begin
  for j:= 1 to 7 do begin
    case i of
      1:arr1[j]:=TLabel.Create(Form1);
      2:arr2[j]:=TLabel.Create(Form1);
      3:arr3[j]:= TLabel.Create(Form1);
    end;
    end;

neu geordnet:

Delphi-Quellcode:

if rblinks.checked then begin
  for i:= 1 to 21 do begin
    case i of
    1..7:stapel[i]:=arr2[i];
    8..14:stapel[i]:=arr1[i-7];
    15..21:stapel[i]:=arr3[i-14];
    end;
  end;

Delphi-Quellcode:

for j:=1 to 7 do begin
  for i:=1 to 3 do begin
       case i of
      1: arr1[j]:=stapel[j*3-2];
      2: arr2[j]:=stapel[j*3-1];
      3: arr3[j]:=stapel[j*3];
      end;
  end;
end;

dann versuche ich sie wieder zu positionieren.. dann kommt das problem...

[sakura]

HI,

tausche doch mal die [code] Tags mit [delphi] Tags aus ;)

...:cat:...

[der t0r]

ja toll aber wie wärs mit nem lösungsvorschlag? :wink:

[StefanDP]

Mir ist immer noch nicht klar WAS du überhaupt machen willst...
Wie wärs wenn du mal den kompletten Sourcecode alls Attachement posten würdest, dann kann sich das mal jemand anschauen.

stefan

[der t0r]

kk hier kommt die pas datei...

[StefanDP]

Du führst das TLabel.Create... bei JEDEM Button-Klick aus! Das ist sicher nicht so gewollt...

stefan

[der t0r]

ja nee dehalb ja button1.enabled:=false .. die andere routine regelt der 2. button

[xineohp]

moin,


so gehts:

Delphi-Quellcode:

//Karten neu legen
  for i:=1 to 3 do begin
    for j:=1 to 7 do begin
      case i of
        1: arr1[j]:=stapel[j];
        2: arr2[j]:=stapel[7+j];
        3: arr3[j]:=stapel[14+j];
      end;
    end;
  end;