ActiveDelphi

[vcscastro]

Eu pessoal, estou sofrendo para colocar popup de wait na minha aplicação.
Eu preciso informar o cliente que esta sendo feita uma transação quando eu chamo um webservice.

Como que eu posso fazer isso?

Já tentei colocar um form dando showmodal, mas não tive sucesso.
Tentei esse componente fgx_0.4.0.12, mas essa zica não instala no meu Delphi XE6.

Nao sei mais o que eu faço, preciso disso urgente!!!

Att

[robinhoc]

Utilize este componente ,e gratuito e e nativo do android.
http://www.programadormobile.com.br/viewtopic.php?f=26&t=355
_________________
Forum Programador mobile,exemplos,tutorias e muito mais,delphi XE5/XE6,andorid,IOS.
http://www.programadormobile.com.br/
--
http://www.dsinet.com.br/
Patrocinador do forum programador mobile

[vcscastro]

Entao, eu tentei usar esse componente. Mas não dei conta de instalar ele no Delphi XE6. Teria como vcs me auxiliarem nisso?


Att

Vinicius Castro

[normenio.momm]

Boa noite!

Também passei por isso... minha solução foi a seguinte:

Criei um formulário Chamado FrmMensagem e defini a propriedade Transparency como True.

criei as variáveis globais
DivTrans, DivMens : TRectangle;
AniIndicator: TAniIndicator;
DivLbMens : TLabel;


Dentro dele criei a seguinte função:

function Mensagem(const Formulario: TForm; vtip, vmens: String; vdefault : String = 's'): String;
begin
Application.ProcessMessages;

if (vtip = 'a') Then
begin
DivTrans := TRectangle.Create(Formulario);
DivTrans.Align := TAlignLayout.Contents;
DivTrans.DesignVisible := False;
DivTrans.Fill.Color := TAlphaColorRec.Black;
DivTrans.Opacity := 0.5;
DivTrans.Visible := True;
Formulario.AddObject(DivTrans);

AniIndicator := TAniIndicator.Create(Formulario);
AniIndicator.Align := TAlignLayout.VertCenter;
AniIndicator.Enabled := True;
AniIndicator.Style := TAniIndicatorStyle.Linear;
AniIndicator.StyleLookup := 'Android Lightaniindicator.png';
AniIndicator.Scale.x := 1;
AniIndicator.Scale.y := 1;
Formulario.AddObject(AniIndicator);

DivLbMens := TLabel.Create(Formulario);
DivLbMens.Parent := AniIndicator;
DivLbMens.Align := TAlignLayout.Bottom;
DivLbMens.Height := 63;
DivLbMens.Font.Family := 'Arial';
//DivLbMens.Font.Size := 18;
DivLbMens.Font.Style := [TFontStyle.fsBold];
DivLbMens.FontColor := TAlphaColorRec.White;
DivLbMens.TextSettings.HorzAlign := TTextAlign.Center;
//DivLbMens.Width := DivTrans.Width;
DivLbMens.Text := vmens;
DivLbMens.Trimming := TTextTrimming.Character;
DivLbMens.StyledSettings := DivLbMens.StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.Style, TStyledSetting.FontColor, TStyledSetting.Other];
AniIndicator.AddObject(DivLbMens);
else
begin
DivTrans.Visible := False;
AniIndicator.Visible := False;
end;
End;


Para chamar ela, basta colocar no formulário que você deseja o seguinte. Digamos que seja no seu menu (FrmMenu):

Para chamar
Mensagem(FrmMenu, 'a', 'Processando');

Para ocultar
Mensagem(FrmMenu, '', '');

------------

No meu caso, coloquei o parametro 'a' para aguarde e '' para esconder


Espero ter ajudado.

[vcscastro]

normenio.momm

Com muita luta e Jesus no Coração eu consegui usando o componente acima.
Valeu pela ideia, vou usar ela em mensagens personalizadas.

Att

Vinicius Castro