docjones Posted April 2, 2015 Share Posted April 2, 2015 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. Link to comment Share on other sites More sharing options...
Administrators Farshad Mohajeri Posted April 2, 2015 Administrators Share Posted April 2, 2015 Do not call kk.free. Form frees itself when closed. Link to comment Share on other sites More sharing options...
docjones Posted April 2, 2015 Author Share Posted April 2, 2015 Thanks !! Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now