Thema: 4gewinnt

Einzelnen Beitrag anzeigen

Michael II

Registriert seit: 1. Dez 2012
Ort: CH BE Eriswil
763 Beiträge
 
Delphi 11 Alexandria
 
#11

AW: 4gewinnt

  Alt 21. Mai 2017, 18:39
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.
Michael Gasser
  Mit Zitat antworten Zitat