"Rimpallo" di SetFocus

[Nicola]

Buona notte a tutti; ho questo problema:
presenza di StringGrid e di un oggetto Button;
al click sul Bottone si aggiunge una riga sulla StringGrid; dopo aver inserito
alcuni dati il Focus passa di nuovo al bottone, che dovrebbe aggiungere una
nuova riga alla StringGrid. Il fatto che quanto ho il comando "BtNewRow.SetFocus",
mi viene rimbalzato in automatico il focus di nuovo sulla StringGrid, presumo perchè
l'interprete lo trova giò cliccato.
C'e un metodo per azzerare lo stato del Bottone? stesso dicasi per la StringGrid.
Grazie per l'aiuto.

[nomorelogic]

buona notte

non è che per caso esci dalla griglia con il tasto TAB?
magari è quello che ti sposta il focus

[Nicola]

no con il mouse

[Diego1981]

buongiorno 
anche io ho qualche dubbio sul TAB, mi sembrava ci fosse il modo di "paragonare" l'invio al TAB e magari nel premere il pulsante scatta il meccanismo che ti da problemi

[Nicola]

Fra la griglia mi sposto da cella a cella con INVIO, poi quando arrivo alla cella all'estrema dx, premo il bottone con mouse

[Diego1981]

magari è una stupidata, ma tu dai il focus alla riga e non alla cella, forse dovresti darlo alla cella?

[Nicola]

Provo a postare un po di codice:
qua premo il bottone che mi crea una nuova riga nella stringgrid

Codice: [Seleziona]

procedure TTfInseMovConta.BtNewRowClick(Sender: TObject);
begin
  inc(NumeroRiga);
  SgMovCon.RowCount:=NumeroRiga;
  SgMovCon.SetFocus;
end;

ora il comando passa alla stringgrid

Codice: [Seleziona]

rocedure TTfInseMovConta.SgMovConEditingDone(Sender: TObject);

begin
  cl:=SgMovCon.Col;rg:=SgMovCon.Row;
  case cl of
       0: ;
       2;
       3:begin
         dato:=UpperCase(SgMovCon.Cells[cl,rg]);
         .
         .
         .
         AggiornaSaldoConto;
         if ord (MovOk.Ctp[NumeroRiga].Segno)=0 then dato:='DARE'
                                                else dato:='AVERE';
         SgMovCon.Cells[cl,rg]:=dato;
         BtNewRow.Refresh;
         BtNewRow.SetFocus;
         end;
  end;

end; 

ho omesso un po' di codice dei punti 0,1,2 giusto per non far confusione

[nomorelogic]

in "AggiornaSaldoConto" ci sono solo calcoli o lavori anche con qualche controllo?

perché richiami BtNewRow.Refresh?

Prova in alternativa con
Form1.ActiveControl := BtNewRow;

[Nicola]

per ora niente di che in "AggiornaSaldoConto" avevo messo solo uno ShowMessage; in effetti togliendolo
il problema scompare anche se non mi è chiara la motivazione logica (mia ignoranza)
BtNewRow.Refresh era una prova che avevo provato a fare, non conoscendo alla perfezione
tutte le funzioni pensavo che il Refresh "azzerasse" lo stato del button.
Non ho capito l'utilizzo di  "Form1.ActiveControl := BtNewRow;" andrebbe inserito al
posto di refresh?

[nomorelogic]

impostare ActiveControl era una alternativa a BtNewRow.SetFocus
ho pensato che se fosse il form principale ad impostare il focus magari le cose cambiavano

per curiosità: dallo ShowMessage in AggiornaSaldoConto, uscivi con invio o col mouse?

[Nicola]

col mouse su "ok"

[nomorelogic]

beh, fosse stato con il tasto INVIO avremmo potuto indagare ma così non so cosa dire

[Nicola]

Mettendo un po' di ordine su TabStop e tabOrder fra i vari elementi sembra che funzioni
correttamente; grazie a tutti per i consigli.