4gewinnt

[Michael II]

Hallo Wega

du kannst auch bei Lazarus Shapes erst zur Laufzeit generieren. Die Eigenschaft Tag gibt es auch. Und auch sonst funktioniert es praktisch gleich wie bei Delphi.

Bei Lazarus sieht Shape1MouseDown etwas anders aus:

Delphi-Quellcode:

procedure Tform1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

Deine Shapes sollen auf MouseDown reagieren; das kannst du bei Lazarus zum Beispiel so tun:

    FShapes[x,y].OnMouseDown := @Shape1MouseDown;
Getestet mit Lazarus 1.6.4. Wenn du den Lazarus Code willst, dann sende mir eine PN.