Forum > Portuguese
Onvalidate com TField
(1/1)
andrewsoares:
Olá, estou começando a ultilizar o lazarus e estou com problema em um código que funciona no delphi. No evento "onshow" do formulario eu chamo uma procedure para funcionar no onvalidate de um determinado campo, porém no lazarus eu sou obrigado a informar um parâmetro que não deveria ser necessário. Segue abaixo o código:
--- 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";}};} ---procedure TfrmCadVenda.FormShow(Sender: TObject);begin with dmCadVenda do Begin query.FieldByName('CAMPO').OnValidate := Validate_Item; End;end;
----------------------------------------------------------------------------
--- 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";}};} ---procedure TdmCadSolicMaterial.Validate_Item(Sender: Integer);begin query.Close(); query.SQL.Text := 'select DESCRICAO_ITEM' + #13 + ' where ITEM.CODIGO_ITEM = ' + IntToStr(Sender); try qryValidaItem.Open(); Except On E:Exception do ShowMessage('Erro Item: ' + E.Message); end; if qryValidaItem.IsEmpty then begin MessageDlg('Campo código do item precisa ser preenchido!', mtError, [mbOK],0); Abort; end else Begin qrySolicItem.FieldByName('DESCITEM_SOL_EST_ITEM').AsString := qryValidaItem.FieldByName('DESCRICAO_ITEM').AsString; End;
Handoko:
Try:
--- 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";}};} --- query.FieldByName('CAMPO').OnValidate := @Validate_Item;
Read more (see point #2):
https://www.freepascal.org/docs-html/prog/progse76.html#x290-306000D.5
And (point #1):
https://www.freepascal.org/docs-html/prog/progse72.html#x286-302000D.1
Navigation
[0] Message Index