Hallo
da sind mehrere Sachen drin, die nicht gehen können, wobei ich das
Jedi Grid nicht kenne.
u.a.:
Ich versteh dein "Rechnen" nicht, da keine Zuweisung erfolgt.
Das drawcell direkt aufzurufen ist unnötig, das macht das Grid alleine, sobald sich ein Wert ändert. So kann es auch nicht gehen, da du dort
1. als Sender einen Button übergibst, und mit sender as tstringgrid bist du nicht im Grid, sondern im Button
2. als rect übergibst du 0,0,0,0 -> was glaubst Du, wo dein Textout(rect.left,rect.top,...) den Text hinschreiben wird
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
...
Rechnen(Sender); //Sender=Button1
...
end;
Procedure TForm1.Rechnen(Sender: TObject);
begin
...
DrawCell(Sender,2,i,Rect(0,0,0,0),[gdselected]) ; //übergebener Sender ist der Button1
...
end;
Zitat:
if integer(JVSG1.objects[col,row])=2 then
in deinem Code steht nirgends, wo Du das object hinterlegts, sicher, das du hier nicht inttostr(cells[acol,arow] stehen haben willst?
Gruß Frank