Fórum Stringgrid urgente #165939
23/06/2003
0
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.
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
Curtir tópico
+ 0
Responder
Posts
23/06/2003
Cdaraujo
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;
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)