celle i stringgrid

Er det ikke bare noget med:
stringgrid1.Cells [stringgrid1.coll,Stringgrid1.Row]

?
A_C

Hov.... kun 1 l

stringgrid1.Cells [stringgrid1.col,Stringgrid1.Row]

A_C

Jeg er ikkesikker, da jeg ikke har prøvet det, men kan du ikke lave en OnMouseupevent, og så i eventen gøre noget i retning af det her:

procedure TForm1.sgAddCondMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

var
  i, j: integer;
 
begin
  I := SG.Col;
  J := SG.Row;
  Showmessage(SG.Cells[i,j]);
end;


Mvh.
    Jan

I eventen proceduren ha\' set sådan ud:

procedure TForm1.SGMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

Jeg må ha\' været mere træt end jeg troede !!!
Den her virker... (har prøvet den af)  :)

procedure TForm1.SGMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i, j: integer;

begin
  SG.MouseToCell(X, Y, i, j);
  Showmessage(SG.Cells[i,j]);
end;

Når du trykker på en celle med musen, dukker der en messagebox op, der viser hvad der står i cellen.

Jeg mente bare at han skulle sætte det kode ind i
onclick eventen på stringgrid1. Sådan her

procedure TAllFrm.StringGrid1Click(Sender: TObject);
  showmessage(stringgrid1.Cells [stringgrid1.col,Stringgrid1.Row])

end;

Det burde da funke

A_C

Hov der manglede et begin
procedure TAllFrm.StringGrid1Click(Sender: TObject);
begin
  showmessage(stringgrid1.Cells [stringgrid1.col,Stringgrid1.Row])

end;

Du har ret, jeg ville nu også sætte det i OnClick eventen, men jeg var åbenbart ret træt, da jeg skrev forslaget.
Måske jeg er lidt for ivrig... du ved....for at prøve og tjene nogle af alle de point ind, som jeg har brugt her i forum\'et.  :)

Mvh
    Jan