Angeklicktes Feld in einem String-Grid finden

[hoika]

Hallo,

Zitat:

Ich will damit das aktuelle Datum einfärben

Durch ein Objects ? oder was soll diese TObject(1)

mit Date (aus SysUtils) bekommst du das aktuelle Datum.
Das einfachste wäre du setzt das Objects gleich beim "FillGrid",
an dieser Stelle hast du ja dein TDateTime fast da

Bei meinem Code

Delphi-Quellcode:

  


 // das kommt von irgendwoher
  wYear  : Word;
  wMonth : Word;

  iCounter:= 0;
  for iRow:= 0 to Grid1.RowCount-1 do
  begin
    for iCol:= 0 to Grid1.ColCount-1 do
    begin
      Inc(iCounter);
      Grid1.Cells[iCol,iRow]:= IntToStr(iCounter);

      if EncodeDate(wYear, wMonth, iCounter)=Date then
      begin
        Grid1.Objects[iCol,iRow]:= TObject(-1);   // merkwürdiger Code ...
      end;

    end;
  end;

Heiko