Guest Posted January 3, 2011 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/ . Quote
Guest Posted January 3, 2011 Author 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/ . Quote
Guest Posted January 3, 2011 Author 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. . Quote
Guest Posted January 4, 2011 Author 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. > > > . Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.