Spiel15 mit dyn. Buttons: Buttons verschwinden

[Mr. Q]

Hi!

Ich programmiere gerade Spiel15 (wobei es auch mehr als nur 15 Buttons sein können auf die man klicken kann). Das Weiterrücken der Buttons auf das leere Feld an sich funktioniert ganz gut. Mein Problem ist, dass die zuerst gedrückten Buttons verschwinden und das Spielfeld damit nach einigen Clicks leer ist. Hoffe, dass es jemanden gibt, der den Fehler finden kann oder eine Alternative dazu weiß.

Hier also der Quelltext:

Delphi-Quellcode:

//Prozedur, die beim Klicken auf die dynamisch erzeugten Buttons ausgelöst wird

var merkvtrue, merkvfalse: TButton;
    horizontalsi, horizontalun, vertikalsi, vertikalun, clickanzahl: Integer;
 Begin
    merkvtrue:= (Sender as TButton);
    merkvfalse:= TButton(FindComponent('unsichtbar'));
    horizontalsi:= merkvtrue.Left;
    vertikalsi:= merkvtrue.Top;
    clickanzahl:= StrToInt(Label3.Caption); //Variablen werden Mithilfe von Labels    'gemerkt'; vielleicht gibt's auch schon hierfür was besseres ;-)
    horizontalun:= merkvfalse.Left;
    vertikalun:= merkvfalse.Top;
    Label4.Caption:= FloatToStr(vertikalun);
    Label5.Caption:= FloatToStr(horizontalun);

    if (clickanzahl > 1) then
     Begin   // su und danach
      horizontalun:= StrToInt(Label2.Caption);
      vertikalun:= StrToInt(Label1.Caption);
      merkvfalse.Top:= StrToInt(Label1.Caption);
      merkvfalse.Left:= StrToInt(Label2.Caption);
     end
    else
     Begin   // Beim ersten Klick auf einen Button neben dem unsichtbaren Button  
      horizontalun:= merkvfalse.Left;
      vertikalun:= merkvfalse.Top;
      Label4.Caption:= FloatToStr(vertikalun);
      Label5.Caption:= FloatToStr(horizontalun);
     end;

    if (horizontalsi = horizontalun)and(vertikalsi = vertikalun-30) or
       (horizontalsi = horizontalun)and(vertikalsi = vertikalun+30) or
       (horizontalsi = horizontalun-30)and(vertikalsi = vertikalun) or
       (horizontalsi = horizontalun+30)and(vertikalsi = vertikalun) then
     Begin
      merkvtrue.Visible:= false; // unsichtberer u. sichtbarer Button tauschen position
      merkvfalse.Visible:= true; // Problem: alte Sender behalten visble wert und werden daher auch unsichtbar; wie umgehen? alternativen? wie kann man diesen einen sender explizit ausdrücken?
      merkvfalse.Caption:= merkvtrue.Caption;
      Label1.Caption:= FloatToStr(vertikalsi);
      Label2.Caption:= FloatToStr(horizontalsi);
      Label3.Caption:= IntToStr(clickanzahl+1);
     end;
 end;

Cu Q

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[Nikolas]

Willkommen im Forum,

Mit den [Delphi ]-Tags kannst du auch hier die Syntax-Highlighting benutzen (Fette begin's und end's)

Für die Variablen, die du auf Labels speicherst, kannst du globale Variablen nutzen.

Delphi-Quellcode:

unit UHintergrund;

interface

uses
  (...)

type
  TStartform = class(TForm)
    Image1: TImage;
    Image2: TImage;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Startform: TStartform;
  variable1: integer;

Jetzt kannst du in allen Prozeduren in diesem Formular auf die Variable 'Variable1' zugreifen.

Rechts über deinem Beitrag ist ein Button 'Edit' mit dem du deinen Beitrag verändern kannst. Denn so ist es etwas schwer, deinen Code zu lesen.

[Mr. Q]

Kannst du mir auch bei meinem anderen Problem helfen (so)? :|

[Nikolas]

Schreib doch mal dazu, was dein Code überhaupt bewirken soll. Bei den Variablenbezeichnern ist es auch schwer sich da was drunter vorzustellen.
Ich kenne das Spiel (unter diesem Namen) nicht und kann mit jetzt nur schwer vorstellen, was das oben soll. Änder erst mal das mit den globalen Variablen, dann wird alles schon viel übersichtlicher.

[Oxmyx]

Zitat:

Zitat von Toxman

Willkommen im Forum,

Mit den [Delphi ]-Tags kannst du auch hier die Syntax-Highlighting benutzen (Fette begin's und end's)

Für die Variablen, die du auf Labels speicherst, kannst du globale Variablen nutzen.

[...]

Jetzt kannst du in allen Prozeduren in diesem Formular auf die Variable 'Variable1' zugreifen.

Auf keinen Fall. Variablen, die zum Formular gehören, kommen in den private-Abschnitt der Klasse.

[IngoD7]

:evil: Grrrr ... bin ja nun nicht der Crossposting-Wächter über Delphi-Foren, aber hier (mittlerweile geschlossen) und hier wurde/wird auch schon versucht, zu helfen. :roll:

Nur so zur Info ... :?

[Mr. Q]

Vielen Dank für die Hilfe!

Das Problem hat sich geklärt (so). :wink: