Wie gehe ich vor?

[Keldorn]

Hallo

ich programmier zwar kein 4gewinnt dmait, aber schau dir maousetocell an

Code:

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var arow,acol:integer;
begin
  StringGrid1.MouseToCell(x,y,acol,arow);
  //kleine Sicherheitprüfung, wenn du außerhalb des zellbereiches geklickt hast
  if (acol<>-1) and (arow<>-1) then label1.caption:=inttostr(acol)+'-'+inttostr(arow);
end;

Mfg Frank