Deutsches Lazarusforum

Besten Dank! Genau das hab ich gemeint.

Hallo zusammen:

ich habe mir einen Datentyp geschaffen und möchte nun durch die Werte iterieren (hoffentlich stimmt das Wort).
type TSpielfarben = (rot, gruen, blau, gelb);

Jetzt brauch ich etwas im Sinne von TSpielfarben.Next wo ich z.B. nach dem Wert "rot" den Wert "gruen" bekomme, danach ...

Das klingt auch gut. Danke das nehm ich

Danke schön, das kann ich erst mal nehmen. Es funktioniert.

Ich wollte ein paar Koordinaten vorbelegen:

StartFelder : Array[1..4,1..4] of TPoint =
(
(
(1,1),(1,2),(2,1),(2,2)
)
(
(10,1),(11,1),(10,2),(11,2)
)
(
(1,10),(2,10),(1,11),(2,11)
)
(
(10,10),(11,10),(10,11),(11,11)
)
);
Da spricht er sowas:
progtypes.pas(24,11) Fatal: Syntax error ...

... Hab ein neues Thema aufgemacht

Also Eure Arbeitsgeschwindigkeit ist schon beeindruckend.
Ich hab das gleich umgesetzt.
Danke Euch

Hallo zusammen!

Ich habe eine Klasse von TCustomControl abgeleitet.
Inzwischen klappt das meiste schon ganz ordentlich.

Jetzt wollte ich für OnEnter eine Ereignisbehandlungs-Routine zuordnen.
type TSpielstein = class(TCustomControl)
...
procedure DoEnter(Sender:TObject);
...
end ...

Ich habs gefunden: Höhe und Breite waren nicht definiert und damit = 0

Das override hat auch nicht geholfen. Es wird nix angezeigt.

Mit "so sollte es auch sein" war gemeint, daß Dein Hinweis zutreffend war.

Ähm... das andere versuch ich rauszufinden

So sollte es auch sein. Die Stunde war halt schon vorgerückt und ich hab das aus dem Kopf gemacht.
Die Geschichte mit dem Parent hab ich probiert, ich hab halt AOwner gecastet und verwendet.
Aber angezeigt wird der Kreis nicht

Hallo zusammen,
ich versuche gerade eine Klasse zu erstellen, die sich auf TForm.Canvas zeichnet und auf Click reagiert.
unit feld;
...
Type TFeld = class(TCustomControl)
constructor create(aOwner:TComponent);
procedure paint;
public
property iFeld : Integer read fiFeld write fiFeld;
private ...

Hi Doreen,
in muß die "0" durch das i ersetzt werden.
Damit gehst Du die Zeilen 0 bis 6 durch, was bestimmt so sein soll.

Aber warum etwas aus Memo2 ausliest um es im selben Memo wieder einzuklinken, erschließt sich nicht

Morgen!
Es hat ein wenig gedauert, aber ich hab das Beispiel mal getestet. Es lief gut. Als ich aber ein Datumsfeld eingefügt und (nach langem Grübeln, was denn nun wieder für ein Fehler anliegt) den Update-String angepasst hatte, sprach Lazarus zu mir, dass Parameter vom Typ DateTime nicht ...