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