Zur Laufzeit Bild in einem Stringgrid Ändern

[Real_Thunder]

So habe es nun soweit das er das Bild Ändert, nur sobald die procedure durch ist, geht das bild wieder in den Standart

habe es so gemacht:

Delphi-Quellcode:

procedure TStandart_frame_form.InvalidateGridCell (aGrid: TDrawGrid;  aCol, aRow: Integer);
  var lRect: TRect;
  Value_Split: TExplode_Array;
  begin
  if Assigned(aGrid) then begin
    lRect := aGrid.CellRect(aCol, aRow);
    if not IsRectEmpty(lRect) then begin
      InvalidateRect(aGrid.Handle, @lRect, False);

      BuddyList.Canvas.Draw(lRect.Left+4,lRect.Top+2,abwesend_pic.Picture.Bitmap);

      sleep(1000);  // Um zu Sehen, das sich überhaupt was tut.
    end;
  end;
end;


procedure Tstandart_frame_form.Button1Click(Sender: TObject);
  begin
    InvalidateGridCell (Buddylist, 0, 0);
  end;