Ja ich weiß was der Sender ist, aber ich dachte dass der Sender immer mein realer Button wäre, denn alle OnClick-Ereignisse hatte ich auf seines umglenkt...
Hier aber mal der funktionierende Code für alle Interessierten:
Delphi-Quellcode:
procedure TFrmMS.MineBtnDadClick(Sender: TObject);
var x, y: integer;
i, z: integer;
Found: boolean;
begin
i:=0;
Found := FALSE;
while ((i < ColsForLevel) and not (Found)) do
begin
z:=0;
while ((z < RowsForLevel) and not (Found)) do
begin
if(MineBtn[i, z] = Sender) then Found := TRUE else z := z+1;
end;
if not (Found) then i := i+1;
end;
x := (MineBtn[i, z].Left - MineBtn[0, 0].Left) div MineBtn[0, 0].Width;
y := (MineBtn[i, z].Top - 50) div MineBtn[0, 0].Height;
Aufdecken(x, y);
end;
Vielen Dank nochmal!