Ne mora značiti da je taj problem koji sam ti rekao. Na kojoj liniji ti baci violation? Stavi break pa idi liniju po liniju. Ako ti stane na toj liniji onda je skoro pa sigurno taj problem. Btw, lakše ti je da samo proslijediš varijablu nego da pozivaš cijelu formu. Ili možeš još u frmproj npr.
Code (delphi):QReport := TQReport.Create(self);
if Table1RedBr.AsInteger = strtoint(edit1.text) then
begin
QReport.QRDBText1.Enabled = False;
//i tako sve redom
end;
QReport.Preview; QReport.Release;
ili druga opcija, postaviš u QReport public varijablu intRedniBroj i onda
Code (delphi):QReport := TQReport.Create(self);
QReport.intRedniBroj := strtoint(edit1.text);
QReport.Preview; QReport.Release;
možeš koristiti i globalnu varijablu, niti jedan primjer mislim da nije loš...
Nakon frmproj. naravno da ti izlaze "mogućnosti" kada ti je frmproj u uses listi, ali to ne znači da ti možeš pozvati objekt iz frmproj (tedit) ako ti forma "ne postoji".
I za kraj samo mala napomena, lakše ti je izvrtiti dbedite nego pisati sve redom (ako postavljaš sve na true/false, a i ako ne možeš napraviti neki npr. array koji idu u filter a koji ne), znači (pišem iz glave, možda sam negdje napravio grešku, ali čisto da dobiješ dojam):
Code (delphi):for i := 0 to ComponentCount - 1 do
begin
if Components[i] is QRDBTextBox then
QRDBTextBox.Components[i].Enabled := false;
end;
F