ListView
29/06/2003
0
Olá colegas,
estou inserindo items em um listview com o seguinte código:
[color=blue:e1ab522583]procedure TForm1.Button1Click(Sender: TObject);
var
ItmLst: TListItem;
begin
ItmLst := ListView1.Items.Add;
ItmLst.Data := Pointer(1);
ItmLst.Caption := Query1.FieldByName(´Cod_CompraBanco´).asString;
ItmLst.SubItems.Add(FormatFloat(´#,0.00´, Query1.FieldByName(´Valor´).asCurrency));
ItmLst.SubItems.Add(Query1.FieldByName(´Vencimento´).asString);
If not Query1.Eof then
Query1.Next;
end;[/color:e1ab522583]
1) preciso acrescentar uma rotina que verifique se já existe o Cod_CompraBanco da query1 na lista. Se já existe mandar mensagem ao usuário e impedir que ele seja novamente listado. Tentei fazer uma rotina mas não consegui. Preciso de ajuda.
2) Preciso também de um código para deletar somente a a linha selecionada da lista. Também não consegui.
Grato pela atenção
estou inserindo items em um listview com o seguinte código:
[color=blue:e1ab522583]procedure TForm1.Button1Click(Sender: TObject);
var
ItmLst: TListItem;
begin
ItmLst := ListView1.Items.Add;
ItmLst.Data := Pointer(1);
ItmLst.Caption := Query1.FieldByName(´Cod_CompraBanco´).asString;
ItmLst.SubItems.Add(FormatFloat(´#,0.00´, Query1.FieldByName(´Valor´).asCurrency));
ItmLst.SubItems.Add(Query1.FieldByName(´Vencimento´).asString);
If not Query1.Eof then
Query1.Next;
end;[/color:e1ab522583]
1) preciso acrescentar uma rotina que verifique se já existe o Cod_CompraBanco da query1 na lista. Se já existe mandar mensagem ao usuário e impedir que ele seja novamente listado. Tentei fazer uma rotina mas não consegui. Preciso de ajuda.
2) Preciso também de um código para deletar somente a a linha selecionada da lista. Também não consegui.
Grato pela atenção
Vanp
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)