Guest Posted January 3, 2011 Share Posted January 3, 2011 Message from: "Javi" Happy New Year !!! How I can throw a UniScreenMask? procedure TForm1.Procedure_1(Sender: TObject); var UniScreenMask: TUniScreenMask; begin UniScreenMask := TUniScreenMask.Create(UniApplication); ¿?¿?¿?¿?¿?¿ FreeAndNil(UniScreenMask); end; -- NNTP.hk - (^(oo)^) http://www.nntp.hk/web/ . Link to comment Share on other sites More sharing options...
Guest Posted January 3, 2011 Author Share Posted January 3, 2011 Message from: "Javi" procedure TForm1.Procedure_1(Sender: TObject); var UniScreenMask: TUniScreenMask; begin UniScreenMask := TUniScreenMask.Create(UniApplication); ... more code; FreeAndNil(UniScreenMask); end; -- NNTP.hk - (^(oo)^) http://www.nntp.hk/web/ . Link to comment Share on other sites More sharing options...
Guest Posted January 3, 2011 Author Share Posted January 3, 2011 Message from: "Farshad Mohajeri" "Javi" ... > Happy New Year !!! > Happy new year Javi > > How I can throw a UniScreenMask? > > > procedure TForm1.Procedure_1(Sender: TObject); > var > UniScreenMask: TUniScreenMask; > begin > UniScreenMask := TUniScreenMask.Create(UniApplication); > > ¿?¿?¿?¿?¿?¿ > > FreeAndNil(UniScreenMask); > end; You can simply put one on Form and make the necessary attachments. See UIMask demo. I'm not sure about dynamic creation of TUniScreenMask component because I did'nt use it this way. . Link to comment Share on other sites More sharing options...
Guest Posted January 4, 2011 Author Share Posted January 4, 2011 Message from: "Javi" I have tried this: ///////////////////////////////////////////////// type TMainForm = class(TUniForm) ..... public UniScreen:TUniScreenMask; end; // NOT WORK procedure TMainForm.UniFormCreate(Sender: TObject); begin UniScreen := TUniScreenMask.Create(UniApplication); UniScreen.DisplayMessage := 'hola holita'; UniSCreen.AttachedControl := UniButton1; UniScreen.Enabled := True; end; // NOT WORK procedure TMainForm.Procedimiento(Sender: TObject); begin UniScreen := TUniScreenMask.Create(UniApplication); UniScreen.DisplayMessage := 'hola holita'; UniSCreen.AttachedControl := UniButton1; UniScreen.Enabled := True; end; /////////////////////////////////////////////////// But this does not work. I have also tried this: ///////////////////////////////////////////////// type TMainForm = class(TUniForm) UniScreenMask1:TUniScreenMask; end; // WORK !!! procedure TMainForm.UniFormCreate(Sender: TObject); begin UniScreenMask1.AttachedControl := UniButton1; end; // NOT WORK procedure TMainForm.Procedimiento(Sender: TObject); begin UniScreenMask1.AttachedControl := UniButton1; end; /////////////////////////////////////////////////// I think the TUniScreenMask component, it only works if it is created at design time. And it is configured in the creation of form (at the latest) Is this true? Is it a bug? -- NNTP.hk - (^(oo)^) http://www.nntp.hk/web/ "Farshad Mohajeri" wrote: > > > "Javi" ... > > Happy New Year !!! > > > > Happy new year Javi > > > > > How I can throw a UniScreenMask? > > > > > > procedure TForm1.Procedure_1(Sender: TObject); > > var > > UniScreenMask: TUniScreenMask; > > begin > > UniScreenMask := TUniScreenMask.Create(UniApplication); > > > > ¿?¿?¿?¿?¿?¿ > > > > FreeAndNil(UniScreenMask); > > end; > > You can simply put one on Form and make the necessary attachments. See > UIMask demo. > I'm not sure about dynamic creation of TUniScreenMask component because I > did'nt use it this way. > > > . 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