DrawGrid und gedrückte Maustaste

[ckoehn]

Hallo
Ich hab folgendes Szenario! Ein Spielbrett wird mit einem DrawGrid dargestellt.
Man kann Wände setzen und sie auch wieder entfernen. So als würde man ein Labyrinth
bauen. Ich würde jetzt gerne, dass wenn man die Maustaste gedrückt hält und über die
Zellen fährt sich diese einfärben (bzw zu einer Wand werden oder andersrum).
Doch wie kann ich das realisisen? :gruebel:

Hab das bis jetzt mit einem OnClick. Dies ist jedoch leicht mühsam, wenn
man 32x32 Felder hat.

Christian

[Luckie]

So geht es bei einem StringGrid:

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Row, Col: Longint;
begin
  if ssLeft in Shift then
  begin
    StringGrid1.MouseToCell(x, y, Col, Row);
    if (Col <> -1) and (Row <> -1) then
      StringGrid1.Cells[Col, Row] := 'foobar';
  end;
end;

Bei einem Drawgrid sollte es entsprechend gehen.

[ckoehn]

Dankeschön!
Habs hinbekommen