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