Res: Re: [delphi-br] showMessage
Pessoal, já resolvi o problema!
Obrigado a todos!
---Mensagem original---
De: Leandro
Data: 11/08/2009 22:55:43
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] showMessage
ele quer no momento q apareça mandar um comando pra dar ok..
e se caso for por tempo eh soh manda uma msg para o handler mostrar o
aplicativo antes de mandar um close no msgdlg
2009/8/11 Silvio Clecio silviop...@yahoo.com.br
Em 11/8/2009 21:55, EmbarcaDelphi escreveu:
Valeu Silvio, esqueci das mensagens do Windows, porém, ainda tem uma
pequena falha ai. Não é especificamente a janela do ShowMessage da
aplicação que o PostMessage vai fechar, é o que está ativo no momento.
Por exemplo, se aparecer outra ShowMessage de outro aplicativo ou uma
message do Windows o ShowMessage da aplicação dele vai continuar. Só
funciona com quem esta ativo, com quem está o foco. Mas...funciona, é um
detalhe pequeno Prefiro usar a function do Rubem pois vou ter o
controle dele no meu programa.
Como citei, faça dois programas, num coloca-se um showmessage (sem
timer) e executa primeiro, no outro faz este procedimento que vc passou,
qdo executar ele
clique no showmessage do outro programa, vai ver que fecha apenas o do
outro programa que não tem nada a ver com a história :D e o outro
permanece lá boiando. Prefiro a function do Rubem pois podemos ter a
autoridade dele e fechar quando quiser.
Veja a pergunta do cara:
{...}
Em 11/8/2009 15:55, brunolbra...@yahoo.com.brbrunolbrasil%40yahoo.com
brescreveu:
Boa tarde!
Seguinte... se eu dou o comando:
showMessage('Teste');
o delphi exibe uma caixa com a msg: Teste na tela e essa msg só sai
depois
que alguém pressionar em OK.
Tem como eu fazer algum comando para essa msg sair automaticamente?
Obrigado!
{...}
Veja a resposta:
{...}
Do DicasDelphi.chm.
---
.
.
.
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
ShowMessage('Tchau!');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PostMessage(FindWindow('TMessageForm', nil), WM_CLOSE, 0, 0);
Timer1.Enabled := False;
end;
{...}
O showMessage('Teste'); dele vai fechar, coloquei um Tchau! só pra
tirar onda :) . Se ele tivesse pedido para encerrar uma aplicação ou até
mesmo o SO, com certeza eu teria respondido com outra coisa. Note que a
pergunta dele soou meio iniciante -- Seguinte... se eu dou o comando:
--, respondi de forma iniciante -- Do DicasDelphi.chm.
Isso não é critica hein! é só um comentário, vc é uma ótima pessoa e é
um grande programador, alias, vc deu apenas uma sugestão.
Critica? Xiiihhh, o clima aqui ta meio quente heim?! Apenas respondi
uma pergunta de um colega, nada mais.
--
Silvio Clecio
--
Leandro, MuTukA
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] showMessage
Tem como eu fazer algum comando para essa msg sair automaticamente? Faça seu próprio form para o ShowMessage e coloque um Timer lá dentro para fechar... ou pesquise na net (www.torry.net) por algum componente/código que já faça isso http://www.google.com.br/search?hl=pt-BRsafe=offq=ShowMessage+automatic+closemeta= Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br
Re: [delphi-br] showMessage
Se não me engano, essa function foi desenvolvida pelo Rubem, copie e cole:
function MessageBoxTimer(const AMsg, ATitle: String;
DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons;
MSecs: Cardinal = 0;
ShowProgressBar: Boolean = True) : integer;
var
lMsgDialog: TForm;
lTimerMethod: TNotifyEvent;
procedure UpdateProgressBar(Data: Pointer; Sender: TObject);
var
lForm: TForm;
lProgressBar: TProgressBar;
begin
if Sender is TTimer then
if TTimer(Sender).Owner is TForm then
begin
lForm := TForm(TTimer(Sender).Owner);
lProgressBar := TProgressBar(lForm.FindComponent('ProgressBar'));
if Assigned(lProgressBar) then
if lProgressBar.Position + 1 lProgressBar.Max then
lProgressBar.StepIt
else
lForm.ModalResult := mrCancel;
end;
end;
procedure TranslateCaptionButtons;
const
AButtonNames: array[TMsgDlgBtn] of String = ('YES',
'NO',
'OK',
'CANCEL',
'ABORT',
'RETRY',
'IGNORE',
'ALL',
'NOTOALL',
'YESTOALL',
'HELP');
AButtonCaptions: array[TMsgDlgBtn] of String = ('Sim',
'Não',
'Ok',
'Cancelar',
'Abortar',
'Retentar',
'Ignorar',
'Tudo',
'Não a Tudo',
'Sim a Tudo',
'Ajuda');
var
lBtnType: TMsgDlgBtn;
lButton: TButton;
begin
for lBtnType := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
begin
lButton := TButton(lMsgDialog.FindComponent(AButtonNames[lBtnType]));
if Assigned(lButton) then
lButton.Caption := AButtonCaptions[lBtnType];
end;
end;
begin
// Cria a caixa de diálogo
lMsgDialog := CreateMessageDialog(AMsg, DlgType, Buttons);
lMsgDialog.Caption := ATitle;
// Traduz botões existentes no diálogo
TranslateCaptionButtons;
// Checa se será necessário uma barra de progresso
if MSecs 0 then
begin
with TProgressBar.Create(lMsgDialog) do
begin
Name := 'ProgressBar';
Parent := lMsgDialog;
Align := alBottom;
Max := MSecs div 1000;
Min := 0;
Step := 1;
Position := 0;
Visible := ShowProgressBar;
end;
lMsgDialog.Height := lMsgDialog.Height + (Ord(ShowProgressBar) * 10);
with TTimer.Create(lMsgDialog) do
begin
Name := 'MsgTimer';
Interval := 1000;
end;
// Cria o timer, usando uma rotina 'solta' (stand-alone, desvinculada de
// uma instância de objeto) para fazer o trabalho de atualização da
barra
// de progressão (caso exista) e também o tempo que será contado para
// fechar a janela
TMethod(lTimerMethod).Code := Addr(UpdateProgressBar);
TMethod(lTimerMethod).Data := lMsgDialog.FindComponent('MsgTimer');
TTimer(lMsgDialog.FindComponent('MsgTimer')).OnTimer := lTimerMethod;
try
// Chama a caixa de diálogo e verifica o seu retorno
Result := lMsgDialog.ShowModal;
finally
lMsgDialog.Free;
end;
end;
end;
blz
brunolbra...@yahoo.com.br escreveu:
Boa tarde!
Seguinte... se eu dou o comando:
showMessage('Teste');
o delphi exibe uma caixa com a msg: Teste na tela e essa msg só sai depois
que alguém pressionar em OK.
Tem como eu fazer algum comando para essa msg sair automaticamente?
Obrigado!
.
Res: Re: [delphi-br] showMessage
rapaz... pra eu fechar a msg do showMessage eu preciso de tudo isso? rs
não tem algo mais simples, tipo um close?
Um abraço!
---Mensagem original---
De: EmbarcaDelphi
Data: 08/11/09 16:11:18
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] showMessage
Se não me engano, essa function foi desenvolvida pelo Rubem, copie e cole:
function MessageBoxTimer(const AMsg, ATitle: String;
DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons;
MSecs: Cardinal = 0;
ShowProgressBar: Boolean = True) : integer;
var
lMsgDialog: TForm;
lTimerMethod: TNotifyEvent;
procedure UpdateProgressBar(Data: Pointer; Sender: TObject);
var
lForm: TForm;
lProgressBar: TProgressBar;
begin
if Sender is TTimer then
if TTimer(Sender).Owner is TForm then
begin
lForm := TForm(TTimer(Sender).Owner);
lProgressBar := TProgressBar(lForm.FindComponent('ProgressBar'));
if Assigned(lProgressBar) then
if lProgressBar.Position + 1 lProgressBar.Max then
lProgressBar.StepIt
else
lForm.ModalResult := mrCancel;
end;
end;
procedure TranslateCaptionButtons;
const
AButtonNames: array[TMsgDlgBtn] of String = ('YES',
'NO',
'OK',
'CANCEL',
'ABORT',
'RETRY',
'IGNORE',
'ALL',
'NOTOALL',
'YESTOALL',
'HELP');
AButtonCaptions: array[TMsgDlgBtn] of String = ('Sim',
'Não',
'Ok',
'Cancelar',
'Abortar',
'Retentar',
'Ignorar',
'Tudo',
'Não a Tudo',
'Sim a Tudo',
'Ajuda');
var
lBtnType: TMsgDlgBtn;
lButton: TButton;
begin
for lBtnType := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
begin
lButton := TButton(lMsgDialog.FindComponent(AButtonNames[lBtnType]));
if Assigned(lButton) then
lButton.Caption := AButtonCaptions[lBtnType];
end;
end;
begin
// Cria a caixa de diálogo
lMsgDialog := CreateMessageDialog(AMsg, DlgType, Buttons);
lMsgDialog.Caption := ATitle;
// Traduz botões existentes no diálogo
TranslateCaptionButtons;
// Checa se será necessário uma barra de progresso
if MSecs 0 then
begin
with TProgressBar.Create(lMsgDialog) do
begin
Name := 'ProgressBar';
Parent := lMsgDialog;
Align := alBottom;
Max := MSecs div 1000;
Min := 0;
Step := 1;
Position := 0;
Visible := ShowProgressBar;
end;
lMsgDialog.Height := lMsgDialog.Height + (Ord(ShowProgressBar) * 10);
with TTimer.Create(lMsgDialog) do
begin
Name := 'MsgTimer';
Interval := 1000;
end;
// Cria o timer, usando uma rotina 'solta' (stand-alone, desvinculada de
// uma instância de objeto) para fazer o trabalho de atualização da
barra
// de progressão (caso exista) e também o tempo que será contado para
// fechar a janela
TMethod(lTimerMethod).Code := Addr(UpdateProgressBar);
TMethod(lTimerMethod).Data := lMsgDialog.FindComponent('MsgTimer');
TTimer(lMsgDialog.FindComponent('MsgTimer')).OnTimer := lTimerMethod;
try
// Chama a caixa de diálogo e verifica o seu retorno
Result := lMsgDialog.ShowModal;
finally
lMsgDialog.Free;
end;
end;
end;
blz
brunolbra...@yahoo.com.br escreveu:
Boa tarde!
Seguinte... se eu dou o comando:
showMessage('Teste');
o delphi exibe uma caixa com a msg: Teste na tela e essa msg só sai depois
que alguém pressionar em OK.
Tem como eu fazer algum comando para essa msg sair automaticamente?
Obrigado!
.
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] showMessage
Você é um programador ou um rato? ...rsssjust a joke. Olhe ali, não falei que poderia usar CreateMessageDialog No caso esta 'ShowMessage' do Rubens é o cão chupando manga; Como disse, se quiser algo mais simples veja como funciona a CreateMessageDialog e crie a sua. Atenc; Elazar De: brunolbra...@yahoo.com.br brunolbra...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 11 de Agosto de 2009 16:20:19 Assunto: Res: Re: [delphi-br] showMessage rapaz... pra eu fechar a msg do showMessage eu preciso de tudo isso? rs não tem algo mais simples, tipo um close? Um abraço! ---Mensagem original --- De: EmbarcaDelphi Data: 08/11/09 16:11:18 Para: delphi...@yahoogrup os.com.br Assunto: Re: [delphi-br] showMessage Se não me engano, essa function foi desenvolvida pelo Rubem, copie e cole: function MessageBoxTimer( const AMsg, ATitle: String; ... ... Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] showMessage
Não tem como. Pronto. Rodinei Amorim Programador Delphi (11) 8208-9503 rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br From: brunolbra...@yahoo.com.br Sent: Tuesday, August 11, 2009 4:27 PM To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] showMessage eu não quero personalizar a caixa de diálogo. eu só preciso fechar ela via comando ao invés de alguém clicar em ok. Será que tem como? Um abraço! ---Mensagem original--- De: Elazar Dornelles Ceza Data: 11/08/2009 16:18:56 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] showMessage Sim voce pode criar o seu dialogo personalizado utilizando uma função base (verifique implementação de MessageDLG) e incluir um timer na mesma, assim quando o timer estourar a janela é fechada. Internamente MessageDLG chama a função 'CreateMessageDialog', voce pode seguir a mesma lógica e incluir um TTimer na criação da sua janela personalizada. Veja unit Dialogs, por volta da linha 1700. Atenc; Elazar De: brunolbra...@yahoo.com.br brunolbra...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 11 de Agosto de 2009 15:55:16 Assunto: [delphi-br] showMessage Boa tarde! Seguinte... se eu dou o comando: showMessage( 'Teste'); o delphi exibe uma caixa com a msg: Teste na tela e essa msg só sai depois que alguém pressionar em OK. Tem como eu fazer algum comando para essa msg sair automaticamente? Obrigado! __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] showMessage
Não entendo o que significa SIMPLES para você. A function que passei (que o Rubem criou) não tem nada de complicado. Mas, como tem muito programador que quer tudo fácil e que tem preguiça de aprender a programar e quer tudo pronto na mão e não faz pesquisa na internet, até aí eu concordo que essa rotina seja difícil. Tem tanta gente que busca um componente que FAÇA TUDO (se possível o programa inteiro). rsrs Elazar Dornelles Ceza escreveu: Você é um programador ou um rato? ...rsssjust a joke. Olhe ali, não falei que poderia usar CreateMessageDialog No caso esta 'ShowMessage' do Rubens é o cão chupando manga; Como disse, se quiser algo mais simples veja como funciona a CreateMessageDialog e crie a sua. Atenc; Elazar ___ .
Re: [delphi-br] showMessage
Em 11/8/2009 15:55, brunolbra...@yahoo.com.br escreveu:
Boa tarde!
Seguinte... se eu dou o comando:
showMessage('Teste');
o delphi exibe uma caixa com a msg: Teste na tela e essa msg só sai depois
que alguém pressionar em OK.
Tem como eu fazer algum comando para essa msg sair automaticamente?
Obrigado!
Do DicasDelphi.chm.
---
.
.
.
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
ShowMessage('Tchau!');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PostMessage(FindWindow('TMessageForm', nil), WM_CLOSE, 0, 0);
Timer1.Enabled := False;
end;
---
--
Silvio Clecio
Re: [delphi-br] showMessage
Valeu Silvio, esqueci das mensagens do Windows, porém, ainda tem uma
pequena falha ai. Não é especificamente a janela do ShowMessage da
aplicação que o PostMessage vai fechar, é o que está ativo no momento.
Por exemplo, se aparecer outra ShowMessage de outro aplicativo ou uma
message do Windows o ShowMessage da aplicação dele vai continuar. Só
funciona com quem esta ativo, com quem está o foco. Mas...funciona, é um
detalhe pequeno Prefiro usar a function do Rubem pois vou ter o
controle dele no meu programa.
Como citei, faça dois programas, num coloca-se um showmessage (sem
timer) e executa primeiro, no outro faz este procedimento que vc passou,
qdo executar ele
clique no showmessage do outro programa, vai ver que fecha apenas o do
outro programa que não tem nada a ver com a história :D e o outro
permanece lá boiando. Prefiro a function do Rubem pois podemos ter a
autoridade dele e fechar quando quiser.
Isso não é critica hein! é só um comentário, vc é uma ótima pessoa e é
um grande programador, alias, vc deu apenas uma sugestão.
blz
Silvio Clecio escreveu:
Do DicasDelphi.chm.
---
.
.
.
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
ShowMessage('Tchau!');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PostMessage(FindWindow('TMessageForm', nil), WM_CLOSE, 0, 0);
Timer1.Enabled := False;
end;
---
--
Silvio Clecio
__.
.
Re: [delphi-br] showMessage
Em 11/8/2009 21:55, EmbarcaDelphi escreveu:
Valeu Silvio, esqueci das mensagens do Windows, porém, ainda tem uma
pequena falha ai. Não é especificamente a janela do ShowMessage da
aplicação que o PostMessage vai fechar, é o que está ativo no momento.
Por exemplo, se aparecer outra ShowMessage de outro aplicativo ou uma
message do Windows o ShowMessage da aplicação dele vai continuar. Só
funciona com quem esta ativo, com quem está o foco. Mas...funciona, é um
detalhe pequeno Prefiro usar a function do Rubem pois vou ter o
controle dele no meu programa.
Como citei, faça dois programas, num coloca-se um showmessage (sem
timer) e executa primeiro, no outro faz este procedimento que vc passou,
qdo executar ele
clique no showmessage do outro programa, vai ver que fecha apenas o do
outro programa que não tem nada a ver com a história :D e o outro
permanece lá boiando. Prefiro a function do Rubem pois podemos ter a
autoridade dele e fechar quando quiser.
Veja a pergunta do cara:
{...}
Em 11/8/2009 15:55, brunolbra...@yahoo.com.br escreveu:
Boa tarde!
Seguinte... se eu dou o comando:
showMessage('Teste');
o delphi exibe uma caixa com a msg: Teste na tela e essa msg só sai
depois
que alguém pressionar em OK.
Tem como eu fazer algum comando para essa msg sair automaticamente?
Obrigado!
{...}
Veja a resposta:
{...}
Do DicasDelphi.chm.
---
.
.
.
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
ShowMessage('Tchau!');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PostMessage(FindWindow('TMessageForm', nil), WM_CLOSE, 0, 0);
Timer1.Enabled := False;
end;
{...}
O showMessage('Teste'); dele vai fechar, coloquei um Tchau! só pra
tirar onda :) . Se ele tivesse pedido para encerrar uma aplicação ou até
mesmo o SO, com certeza eu teria respondido com outra coisa. Note que a
pergunta dele soou meio iniciante -- Seguinte... se eu dou o comando:
--, respondi de forma iniciante -- Do DicasDelphi.chm.
Isso não é critica hein! é só um comentário, vc é uma ótima pessoa e é
um grande programador, alias, vc deu apenas uma sugestão.
Critica? Xiiihhh, o clima aqui ta meio quente heim?! Apenas respondi
uma pergunta de um colega, nada mais.
--
Silvio Clecio
Re: [delphi-br] showMessage
ele quer no momento q apareça mandar um comando pra dar ok..
e se caso for por tempo eh soh manda uma msg para o handler mostrar o
aplicativo antes de mandar um close no msgdlg
2009/8/11 Silvio Clecio silviop...@yahoo.com.br
Em 11/8/2009 21:55, EmbarcaDelphi escreveu:
Valeu Silvio, esqueci das mensagens do Windows, porém, ainda tem uma
pequena falha ai. Não é especificamente a janela do ShowMessage da
aplicação que o PostMessage vai fechar, é o que está ativo no momento.
Por exemplo, se aparecer outra ShowMessage de outro aplicativo ou uma
message do Windows o ShowMessage da aplicação dele vai continuar. Só
funciona com quem esta ativo, com quem está o foco. Mas...funciona, é um
detalhe pequeno Prefiro usar a function do Rubem pois vou ter o
controle dele no meu programa.
Como citei, faça dois programas, num coloca-se um showmessage (sem
timer) e executa primeiro, no outro faz este procedimento que vc passou,
qdo executar ele
clique no showmessage do outro programa, vai ver que fecha apenas o do
outro programa que não tem nada a ver com a história :D e o outro
permanece lá boiando. Prefiro a function do Rubem pois podemos ter a
autoridade dele e fechar quando quiser.
Veja a pergunta do cara:
{...}
Em 11/8/2009 15:55,
brunolbra...@yahoo.com.brbrunolbrasil%40yahoo.com.brescreveu:
Boa tarde!
Seguinte... se eu dou o comando:
showMessage('Teste');
o delphi exibe uma caixa com a msg: Teste na tela e essa msg só sai
depois
que alguém pressionar em OK.
Tem como eu fazer algum comando para essa msg sair automaticamente?
Obrigado!
{...}
Veja a resposta:
{...}
Do DicasDelphi.chm.
---
.
.
.
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
ShowMessage('Tchau!');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PostMessage(FindWindow('TMessageForm', nil), WM_CLOSE, 0, 0);
Timer1.Enabled := False;
end;
{...}
O showMessage('Teste'); dele vai fechar, coloquei um Tchau! só pra
tirar onda :) . Se ele tivesse pedido para encerrar uma aplicação ou até
mesmo o SO, com certeza eu teria respondido com outra coisa. Note que a
pergunta dele soou meio iniciante -- Seguinte... se eu dou o comando:
--, respondi de forma iniciante -- Do DicasDelphi.chm.
Isso não é critica hein! é só um comentário, vc é uma ótima pessoa e é
um grande programador, alias, vc deu apenas uma sugestão.
Critica? Xiiihhh, o clima aqui ta meio quente heim?! Apenas respondi
uma pergunta de um colega, nada mais.
--
Silvio Clecio
--
Leandro, MuTukA
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ShowMessage('NAO FUNCIONA');
Uses Dialogs; Será que agora vai? 2009/5/6 wa...@oi.com.br Pessoal, vcs já me ajudaram antes, mas não estou me lembrando e estou longe do meu computador principal. Para que ShowMessage funcione em threads, for e whiles, tenho que colocar antes uma chamada de um método que não me lembro agora, Algo como Appication. não sei se é por ai. Me ajudem a refrescar a velha memória, Sds Roberto -- Na Oi Internet você ganha ou ganha. Além de acesso grátis com qualidade, você pode ter contas ilimitadas de email com 1 giga cada uma, suporte grátis e muito mais. Baixe grátis o Discador Oi em http://www.oi.com.br/discador e comece a ganhar. Agora, se o seu negócio é voar alto na internet, assine Oi Internet Banda Larga e ganhe o modem grátis. Clique em http://www.oi.com.br/bandalarga e aproveite essa moleza! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ShowMessage('NAO FUNCIONA'); Já Lembrei
Já lembrei pessoal, é: Application.ProcessMessages; Obrigado assim mesmo e bom dia ; - Mensagem original de holiveira.wordpr...@gmail.com - Uses Dialogs; Será que agora vai? 2009/5/6 wa...@oi.com.br Pessoal, vcs já me ajudaram antes, mas não estou me lembrando e estou longe do meu computador principal. Para que ShowMessage funcione em threads, for e whiles, tenho que colocar antes uma chamada de um método que não me lembro agora, Algo como Appication. não sei se é por ai. Me ajudem a refrescar a velha memória, Sds Roberto -- Na Oi Internet você ganha ou ganha. Além de acesso grátis com qualidade, você pode ter contas ilimitadas de email com 1 giga cada uma, suporte grátis e muito mais. Baixe grátis o Discador Oi em http://www.oi.com.br/discador e comece a ganhar. Agora, se o seu negócio é voar alto na internet, assine Oi Internet Banda Larga e ganhe o modem grátis. Clique em http://www.oi.com.br/bandalarga e aproveite essa moleza! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Fim mensagem original - -- Na Oi Internet você ganha ou ganha. Além de acesso grátis com qualidade, você pode ter contas ilimitadas de email com 1 giga cada uma, suporte grátis e muito mais. Baixe grátis o Discador Oi em http://www.oi.com.br/discador e comece a ganhar. Agora, se o seu negócio é voar alto na internet, assine Oi Internet Banda Larga e ganhe o modem grátis. Clique em http://www.oi.com.br/bandalarga e aproveite essa moleza! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ShowMessage('NAO FUNCIONA');
Nada haver.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Humberto Oliveira
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, May 06, 2009 10:45 AM
Subject: Re: [delphi-br] ShowMessage('NAO FUNCIONA');
Uses
Dialogs;
Será que agora vai?
2009/5/6 wa...@oi.com.br
Pessoal, vcs já me ajudaram antes, mas não estou me lembrando e estou
longe do meu computador principal.
Para que ShowMessage funcione em threads, for e whiles, tenho que
colocar antes uma chamada de um método que não me lembro agora,
Algo como Appication. não sei se é por ai.
Me ajudem a refrescar a velha memória,
Sds
Roberto
--
Na Oi Internet você ganha ou ganha. Além de acesso grátis com
qualidade, você pode ter contas ilimitadas de email com 1 giga cada
uma,
suporte grátis e muito mais. Baixe grátis o Discador Oi em
http://www.oi.com.br/discador e comece a ganhar.
Agora, se o seu negócio é voar alto na internet,
assine Oi Internet Banda Larga e ganhe o modem grátis. Clique em
http://www.oi.com.br/bandalarga e aproveite essa moleza!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ShowMessage('NAO FUNCIONA');
Application.Processmessages
Mas esta chamada tem haver é COM MENSAGENS INTERNAS DO SISTEMA OPERACIONAL e
não com Messagebox ou Messagedlgs da vida
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: wa...@oi.com.br
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, May 06, 2009 10:36 AM
Subject: [delphi-br] ShowMessage('NAO FUNCIONA');
Pessoal, vcs já me ajudaram antes, mas não estou me lembrando e estou
longe do meu computador principal.
Para que ShowMessage funcione em threads, for e whiles, tenho que
colocar antes uma chamada de um método que não me lembro agora,
Algo como Appication. não sei se é por ai.
Me ajudem a refrescar a velha memória,
Sds
Roberto
--
Na Oi Internet você ganha ou ganha. Além de acesso grátis com
qualidade, você pode ter contas ilimitadas de email com 1 giga cada
uma,
suporte grátis e muito mais. Baixe grátis o Discador Oi em
http://www.oi.com.br/discador e comece a ganhar.
Agora, se o seu negócio é voar alto na internet,
assine Oi Internet Banda Larga e ganhe o modem grátis. Clique em
http://www.oi.com.br/bandalarga e aproveite essa moleza!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ShowMessage('NAO FUNCIONA');
Tem que adicionar na clausla uses, o Dialogs;
From: wa...@oi.com.br
Sent: Wednesday, May 06, 2009 10:36 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] ShowMessage('NAO FUNCIONA');
Pessoal, vcs já me ajudaram antes, mas não estou me lembrando e estou
longe do meu computador principal.
Para que ShowMessage funcione em threads, for e whiles, tenho que
colocar antes uma chamada de um método que não me lembro agora,
Algo como Appication. não sei se é por ai.
Me ajudem a refrescar a velha memória,
Sds
Roberto
--
Na Oi Internet você ganha ou ganha. Além de acesso grátis com
qualidade, você pode ter contas ilimitadas de email com 1 giga cada
uma,
suporte grátis e muito mais. Baixe grátis o Discador Oi em
http://www.oi.com.br/discador e comece a ganhar.
Agora, se o seu negócio é voar alto na internet,
assine Oi Internet Banda Larga e ganhe o modem grátis. Clique em
http://www.oi.com.br/bandalarga e aproveite essa moleza!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Showmessage com aplicacao minimizada
Agora vc explica com detalhes o problema, né Ícaro? Bom, seguinte. Tem como
resolver o teu problema sim, mas não com ShowMessage(). Se vc usar
TApplication.MessageBox(), tem como resolver sim. Esse método de TApplication é
na verdade uma implementação da função MessageBox() da API do Windows. Quando
vc chama esse método de TApplication, ele aceita um valor especial que permite
que a mensagem apareça por cima de outras janelas (opção MB_SYSTEMMODAL).
Exemplo (odeio receita de bolo, mas tô vendo que neste caso tenho que ser
explícito!):
Application.MessageBox('Voltou ao início.', PChar(Self.Caption),
MB_ICONINFORMATION + MB_OK + MB_SYSTEMMODAL);
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 18 Dec 2007 08:26:10 -0800
Subject: [delphi-br] Showmessage com aplicacao minimizada
Boa tarde!!
Estou com um sistema minimizado ... coloco no TTimer q de 5 em 5 faz uma busca
no banco verificando se tem uma Ordem de servico pra determinado usuario logado
no momento.. se tiver um OS quero que apeca uma menssagem dizendo q ha uma OS
.. mas o problema é que se o programa estiver minimizado a mensagem só aparece
qdo o programa é restaurado .. tem jeito dessa menssagem aparecer imediatamente
msm com o sistema minimizado
Obrigado
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
_
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
RE: [delphi-br] Showmessage com aplicacao minimizada (Completamente OFF)
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Exemplo (odeio receita de bolo, mas tô vendo que neste caso tenho que ser explícito!): Eu tb odeio receita de bolo. Sou um péssimo cozinheiro. Mas adoro bolo! Desculpe, mas não deu pra resistir. Abraços, Ricardo. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Showmessage com aplicacao minimizada (Completamente OFF)
De fato, companheiro! Comer bolo que é bom todo mundo quer, agora procurar ou elaborar a receita, arregaçar as mangas e colocar a mão na massa, ninguém quer! E nessas listas de Delphi, é cada vez maior o número de cidadãos na lista que se enquadram nesse segunda categoria. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Tue, 18 Dec 2007 14:28:14 -0300 Subject: RE: [delphi-br] Showmessage com aplicacao minimizada (Completamente OFF) Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:Exemplo (odeio receita de bolo, mas tô vendo que neste caso tenho que ser explícito!): Eu tb odeio receita de bolo. Sou um péssimo cozinheiro. Mas adoro bolo! Desculpe, mas não deu pra resistir. Abraços, Ricardo. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: [delphi-br] ShowMessage.
Isso é relacionado a unit Dialogs ... se vc não está usando esta unit no uses o ShowMessage não irá aparecer. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Red Mosquito To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Monday, September 17, 2007 5:51 PM Subject: [delphi-br] ShowMessage. Por que as vezes o ShowMessage aparece no CTRL+Barra espaço, e as vezes não ? Consequentemente dá erro na compilação. Isto está relacionado a que ? ao tipo de formulário ? a procedure/função ? Obrigado Junior [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46eeea5d949062013611652 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] showmessage
Declare a unit Dialogs, na uses.
constructor TVitor.Create( AOwner : TProgrammer );
begin
Name := 'Vitor Redes';
Login := 'vredes';
Password := '**';
City := 'Curitiba';
Employee := 'Redsystem';
inherited Create( AOwner )
end;
end.
- Original Message -
From: Cícero
To: Listadelphi (E-mail)
Sent: Wednesday, September 28, 2005 4:10 PM
Subject: [delphi-br] showmessage
Mudeu agora para delphi7 com XP. Olha que mensagem de erro conviencente...
[Error] adoconnection1.pas(44): Undeclared identifier: 'showmessage'
showmessage('minha mensagem');
nao funciona.,. e agora.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] ShowMessage
Eu crieu uma FUNCTION E USO ASSIM...
NA SECÇÃO PRIVATE VOCE COLOCA:
function valida_campos:boolean;
A FUNÇÃO...DEVE SER COLOCADO ABAIXO DO
{$R *.dfm}
function TfrmClientes.valida_campos:boolean;
begin
valida_campos:=true;
if (dbeNome.Text='') then
begin
valida_campos:=false;
showmessage('Informe a nome do cliente !!');
dbeNome.SetFocus;
end
else
if (dbeCNPJ.text='') then
begin
valida_campos:=false;
showmessage('Informe o CNPJ !!');
dbeCNPJ.SetFocus;
end E OS DEMAIS CAMPOS QUE VOCE QUE TESTAR
E DEPOIS QUENDO VOCE FOR GRAVAR ...
begin
if (valida_campos=true) then
begin
showmessage ('Cadastro do doador gravado com sucesso !!');
DM.dbCliente.Post;
end
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] ShowMessage
Eu uso assim:
ShowMessage('Essa ação não é válida.'#13'Tente novamente mais tarde,'#13'ou
procure o administrador.1);
t+
- Original Message -
From: Rodrigo Tognin
To: Delphi-Br
Sent: Wednesday, July 06, 2005 2:25 PM
Subject: [delphi-br] ShowMessage
Boa tarde.
Tem como mandar mais de uma linha para o ShowMessage?
Por exemplo:
Essa ação não é válida.
Tente novamente mais tarde,
ou procure o administrador.
Tem algum comando para pular linhas no ShowMessage?
Obrigado
Rodrigo Tognin
Estudante e estagiário
Técnico em informática
ESALQ/USP - IPEF
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] ShowMessage
POR FALAR NISSO...ALGUÉM SABE MESMO UMA MANEIRA BEM PRÁTICA DE FAZER ISSO??? OU QUAL MELHOR MANEIRA [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
