Jump to content

How I can throw a UniScreenMask?


Guest

Recommended Posts

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

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

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

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...