Forum > Packages and Libraries

DBGRID on EDITDONE not change to next column

(1/1)

eldonfsr:
Is possible  on DBGRID on event EDITDONE after some validation not skip to next column give focus to the same column to type value again...some like that...

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} --- if(RxDBGdETwORKoRD.SelectedIndex = 9 ) then begin    if(  (RxDetWorkOrd.FieldByName('QtyAssigned').AsFloat+ RxDetWorkOrd.FieldByName('QtyPartial').AsFloat) < RxDetWorkOrd.FieldByName('WorkOrdQty').AsFloat) then begin      RxDetWorkOrd.edit;      RxDetWorkOrd.FieldByName('CostProd').AsFloat:= ((RxDetWorkOrd.FieldByName('QtyAssigned').AsFloat+ RxDetWorkOrd.FieldByName('OverKit').AsFloat+ RxDetWorkOrd.FieldByName('QtyPartial').AsFloat )  * (RxDetWorkOrd.FieldByName('cost').AsFloat));      Partial:=True;      CalCulaTotales;      Save:=true;    end else begin      MessageDLG('Alert!!!','Material to assign and asigned is over of material required',mtWarning, [mbYes], 0);      RxDetWorkOrd.edit;      RxDetWorkOrd.FieldByName('QtyPartial').AsFloat:=0;      RxDBGdETwORKoRD.SelectedIndex := 8;    end;  end;      show message but jump to next column...

could be possible... that?

Navigation

[0] Message Index