Stringgrid urgente

Delphi

23/06/2003

Eu tenho uma Stringgrid com 7linhas e 9 colunas.
Na coluna 8 linha indefinida eu vou colocar um valor que representa o quanto o cliente ta me pagando.
Eu quero saber como eu sei quando eu dei enter dentro de uma celula:

eu fiz assim mas não funciona.

if cell[8,1]=#13 then
edit1.tex:=´aaaaaa´
end

mas o que me inporta é saber quando eu dei um enter detro de uma determinada celula e não quando eu apertei qualqer tecla.


Marculino

Marculino

Curtidas 0

Respostas

Cdaraujo

Cdaraujo

23/06/2003

Caro amigo,

Veja um pequeno exemplo que preparei para vc.

Atenciosamente,

Daniel Araújo

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
with StringGrid1 do
begin
Label1.Caption := ´Linha: ´ + InttoStr(Row) +
´ e Coluna:´ + InttoStr(Col);
Label1.Caption := Label1.Caption + ´ Valor : ´ + StringGrid1.Cells[Col, Row]
end;
end else
Label1.Caption := ´A Linha só será atualizada com o ENTER´;
end;



Eu tenho uma Stringgrid com 7linhas e 9 colunas. Na coluna 8 linha indefinida eu vou colocar um valor que representa o quanto o cliente ta me pagando. Eu quero saber como eu sei quando eu dei enter dentro de uma celula: eu fiz assim mas não funciona. if cell[8,1]=#13 then edit1.tex:=´aaaaaa´ end mas o que me inporta é saber quando eu dei um enter detro de uma determinada celula e não quando eu apertei qualqer tecla.



GOSTEI 0
POSTAR