Jump to content

Free form creation problem


docjones

Recommended Posts

try
  kk:=TSearchFreeForm.Create(UniApplication);
  Kk.ShowModal(

  Procedure(Sender: TComponent; Result:Integer)
    begin
        if Result=mrOk then Begin
          //Query.Locate('numero',kk.Query.FieldByName('numero').AsString,[loCaseInsensitive]);
        End;

    End

  );
finally
    kk.Free;
end;

Hi.

I just try creating a free form to search data, but when I call showmodal, error occurs (see attach).

TSearchFreeForm is a simple empty Free form.

I think that my code is correct.

Versión 0.99.0.1150 Pro.

 

 

 

 

 

post-454-0-75522700-1427972867_thumb.jpg

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...