How I can throw a UniScreenMask?

[Guest]

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/

 

.

 

[Guest]

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/

 

.

 

[Guest]

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.

 

 

.

 

[Guest]

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.

>

>

>

 

.