Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: Nicola - Novembre 27, 2015, 01:54:04 pm

Titolo: String Grid EditinDone
Inserito da: Nicola - Novembre 27, 2015, 01:54:04 pm
Tanto per cambiare avrei bisogno del vostro aiuto, il problema è il seguente:
ho una StringGrid editabile, alla colonna 2 se inserisco un dato e il dato è nel
database il curosore deve passare alla colonna successiva, mentre se il dato
non esiste la cella editata va azzerata e il focus deve rimanere alla colonna 1;
il problema è che con il codice che ho inserito il focus mi va sulla colonna
successiva in ogni caso; facendo un po' di tracciamento mi par di capire che
sia un problema di editingdone; in sostanza lo stringgrid trova editingdone
true e pertanto passa via; il problema è che dopo il primo inserimento con
dato errato vorrei che l'editingdone fosse false; che proprietà dovrei usare?
Codice: [Seleziona]
begin
  cl:=SgMovCon.Col;rg:=SgMovCon.Row;
  case cl of
       0:;
       1: begin
          dato:=SgMovCon.Cells[cl,rg];
          if dato<>'' then begin
             if not EsisteConto(dato) then begin
                                           TfContoNonEsiste.Show;
                                           SgMovCon.Cells[cl,rg]:='';
                                           SgMovCon.Col:=cl;sgMovCon.Row:=rg;
                                           SgMovCon.SetFocus;
                                           end
                                        else ..................;

           
          end;
       2:;
       5;
  end;

Titolo: Re:String Grid EditinDone
Inserito da: nomorelogic - Novembre 27, 2015, 03:33:36 pm
probabilmente devi fare i controlli nell'evento OnValidateEntry