Einzelnen Beitrag anzeigen

64Jabor

Registriert seit: 9. Jan 2008
158 Beiträge
 
Delphi 7 Personal
 
#8

Re: "MineSweeper" - Probleme mit Rundtime-Buttons

  Alt 2. Okt 2008, 19:23
Als real meine ich einen Button den ich mir real vorstellen kann xD
Also einen den ich per Drag&Drop auf das Formular gezogen hab, der unsichtbar ist und einfach nur dazu dient, alle OnClicks auf sich zu nehmen.
Ich weiß das real ganz sicherlich nicht der richtige Begriff dafür ist, aber ich fand den iwie passend ^^

Allerdings habe ich mit meiner Variante da oben ein kleines Problem!
In einem völlig unersichtlichen Muster bekomme ich Zugriffsverletzungen im Speicher.
Das wird daher rühren, dass ich eine Prozedur hab, die die Buttons löscht wenn man auf sie klickt und es keine Mine ist.
Dazu hier mal wieder die Prozedur (die von oben ist noch aktuell):
Delphi-Quellcode:
procedure TFrmMS.SmileForUser(ACol, ARow: integer);
var TopLeft, BtmRight: TPoint;
begin
 if not (BtnDestroyed[ACol, ARow]) then
  begin
   MineBtn[ACol, ARow].Destroy;
   BtnDestroyed[ACol, ARow] := TRUE;
  end;
 TopLeft.X := MineBtn[0, 0].Left + ACol*MineBtn[0, 0].Width;
 TopLeft.Y := MineBtn[0, 0].Top + ARow*MineBtn[0, 0].Height;
 BtmRight.X := TopLeft.X + MineBtn[0, 0].Width;
 BtmRight.Y := TopLeft.Y + MineBtn[0, 0].Height;
 Canvas.TextRect(rect(TopLeft, BtmRight), TopLeft.X, TopLeft.Y, MinesArround(ACol, ARow));
 BtnFace.Caption := ':-)';
end;
Weder das Rechteck noch die Schrift erscheinen obwohl sie das meiner Meinung nach egtl müssten ^^
Und ab und zu bekomme ich diese Zugriffsverletzungen TROTZ meinem Schutz, dass ein Button nicht zweimal gelöscht werden kann...woran kann denn das jetzt liegen O.o
Sebastian
Unsren Clan im volle Lauf, hält weder Ochs noch Esl auf ^^
  Mit Zitat antworten Zitat