Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: Nicola - Settembre 23, 2015, 07:17:14 pm

Titolo: Oggetto String Grid
Inserito da: Nicola - Settembre 23, 2015, 07:17:14 pm
Buon sera a tutti, son tornato con i miei problemucci:
ho una casella di testo che all'evento onchange attiva una stringgrid mostrando una serie di valori; successivamente
quando clicko sulla stringgrid per selezionare la riga che mi interessa aggiorno il testo della LabelEdit tramite l'evento
on doubleclick; alla prima selezione funziona, alla seconda volta è come se la stringgrid memorizzasse l'evento e
non aggiorna piu' la casella di testo. Come potrei intervenire?
Codice: [Seleziona]
procedure TTfInseMoviNew.SgEleAnaDblClick(Sender: TObject);
var rigasele,numclisele:integer;
    numclfrstr:string;
begin
 rigasele:=SgEleAna.Row;
 numclfrstr:=SgEleAna.Cells[0,rigasele];
 numclisele:=strtoint(numclfrstr);
 LeCodAna.Text:=ArrCliFor[numclisele].CodAna;
 LeCodAna.SetFocus;
end;
Grazie per l'aiuto
Titolo: Re:Oggetto String Grid
Inserito da: schumi - Settembre 24, 2015, 11:23:12 am
banalmente metti uno showmessage nell'evento che ti mostri SgEleAna.Row, oppure fai il debug passo passo