Angeklicktes Feld in einem String-Grid finden

[hoika]

Hallo,

was sagt der Debugger (F5, F7, F8 ...),
was der Compiler (Warnungen ?).

Ausserdem verschweigst du hier , wo Zaehler gesetzt wird.

Delphi-Quellcode:

DecodeDate(date,year,month,day);
for lauf := 1 to Tage do
begin
  Inc(Zaehler);

Der muss auf 0 stehen.

Delphi-Quellcode:

DecodeDate(date,year,month,day);
Zaehler:= 0;
for lauf := 1 to Tage do
begin
  Inc(Zaehler);

Setz mal per F5 auf die Zeile Kalender.objects[count,row]:=TObject(1);
einen Breakpoint und schau an, ob die Zeile überhaupt angesprungen wird.
Wennja, funktioniert eine OnDrawCell nicht.

Das ganze funktioniert nat. auch nur, wenn du den aktuellen Monat als Kalender anzeigst.

Und wo wir gerade bei Code sind
Das Stück hier erscheint 2mal (DRY).

Delphi-Quellcode:

Kalender.Cells[count,row]:=IntToStr(lauf);
inc(count);

Heiko