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]
[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!
[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: [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]
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]
RES: [delphi-br] showMessage
Eu mesmo!
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: terça-feira, 11 de agosto de 2009 15:10
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 mailto:brunolbrasil%40yahoo.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]
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]
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]
[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]
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]
RES: [delphi-br] ShowMessage('NAO FUNCIONA');
Veja se não esquece mais! A pior coisa é desenvolvedor esquecendo até como
faz loop!
Application.ProcessMessages
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de wa...@oi.com.br
Enviada em: quarta-feira, 6 de maio de 2009 09:36
Para: delphi-br@yahoogrupos.com.br
Assunto: [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]
[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]
RES: [delphi-br] Showmessage com aplicacao minimizada
Parabéns por ter conseguido usar o TTimer. Tenta usar esse comando para forçar restaurar a aplicação minimizada. Application.restore; (acho que eh isso) De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Icaro Ferreira Enviada em: terça-feira, 18 de dezembro de 2007 14:26 Para: delphi br Assunto: [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] [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
[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]
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]
[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]
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
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
RES: [delphi-br] showmessage
Declara a dialogs na clausula Uses da unit
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Cícero
Enviada em: quarta-feira, 28 de setembro de 2005 16:10
Para: Listadelphi (E-mail)
Assunto: [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]
Links do Yahoo! Grupos
[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
[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 * 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
RES: [delphi-br] ShowMessage
Se eu não tiver enganado tente assim: Essa ação não é válida + #13 + Tente novamente mais tarde, + #13 + ou procure o administrador. Ricardo Santos _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Tognin Enviada em: quarta-feira, 6 de julho de 2005 14:25 Para: Delphi-Br Assunto: [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 * 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do http://br.yahoo.com/info/utos.html 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
RES: [delphi-br] ShowMessage
Na mosca!!! Obrigado! Mas perguntando mais uma coisa: Em um cadastro de clientes, alguns campos são obrigatórios... E, antes de gravar, serão verificado os campos que faltam. Gostaria de fazer aparecer os campos que não foram preenchidos. Na lógica ficaria assim: Exibe_mensagem 'Os seguintes campos faltam ser preenchidos:' + #pula_linha + Se (nome = '') Então Exibe_Mensagem 'Nome' + #pula_linha + Se (endereco = '') Então Exibe_Mensagem 'Endereço' E assim por diante. Se tiver um jeito melhor, gostaria de saber. Obrigado! Rodrigo Tognin -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ricardo (Yahoo) Enviada em: quarta-feira, 6 de julho de 2005 14:33 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] ShowMessage Se eu não tiver enganado tente assim: Essa ação não é válida + #13 + Tente novamente mais tarde, + #13 + ou procure o administrador. Ricardo Santos _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Tognin Enviada em: quarta-feira, 6 de julho de 2005 14:25 Para: Delphi-Br Assunto: [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 * 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do http://br.yahoo.com/info/utos.html 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 -- 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
RES: [delphi-br] ShowMessage
YES 'Essa ação não é válida.' + #$0a + #$0d + 'Tente novamente mais tarde,' + #$0a + #$0d + ' ou procure o administrador.' []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Rodrigo Tognin [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 6 de julho de 2005 14:25 Para: Delphi-Br Assunto: [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 [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
RES: [delphi-br] ShowMessage
Eu estava pensando em fazer o seguinte:
ShowMessage ('Os campos selecionados são obrigatórios');
Daí troca a cor do funto dos campos
If nome.text = '' Then
Nome.color = clSilver;
If endereco.text = '' Then
endereco.color = clSilver;
E assim por diante, por que até facilita para o usuávio ver os campos que
estão faltando...
Acho que vou adotar essa opção para meu sistema. Obrigado pela ajuda
daqueles que ajudaram!
Rodrigo Tognin
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Paulo Cesar Rohleder
Enviada em: quarta-feira, 6 de julho de 2005 15:56
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] ShowMessage
POR FALAR NISSO...ALGUÉM SABE MESMO UMA MANEIRA BEM PRÁTICA DE FAZER ISSO???
OU QUAL MELHOR MANEIRA
--
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: RES: [delphi-br] ShowMessage
Perdoe-me, mas não acho que isso seja uma boa prática!
Se ele deixar de preencher vários campos, você listará todos eles
imaginando que o usuário irá guardar isso na memória?
Doce engano!!! Ele guardará alguns poucos e olhe lá.
O correto é você dar a mensagem para o primeiro campo obrigatório não
preenchido que encontrar. Se ele preencher esse que faltava e esquecer
os outros, vá enviando uma à uma as mensagens até que todos os campos
obrigatórios tenham sido preenchidos.
Ex.: Bolando uma função para isso
// Verifica se existem dados no componente passado como parâmetro.
Function VerificaPreenchimento(Componente: TComponent): Boolean;
Var
Mascara, Texto: String;
Begin
Result := False;
// Se for um TEdit, TComboBox, TCheckBox ou TRadioGroup
// e não estiverem vazios...
If ( (Componente is TEdit ) and
(TEdit(Componente).Text '' )) or
( (Componente is TComboBox ) and
(TComboBox(Componente).Text '' )) or
( (Componente is TCheckBox ) and
(TCheckBox(Componente).Checked )) or
( (Componente is TRadioGroup ) and
( TRadioGroup(Componente).ItemIndex = 0 )) or
( (Componente is TSincComboBox ) and
(TSincComboBox(Componente).ItemIndex = 0 )) then
Result := True;
// Se o componente for um TMaskEdit e não estiver vazio...
If (Componente is TMaskEdit) then
Begin
// Recupera a máscara contida no componente.
Mascara := TMaskEdit(Componente).EditMask;
// Retira a máscara do componente.
TMaskEdit(Componente).EditMask := '';
// Recupera o texto do TMaskEdit (sem a máscara).
Texto := TMaskEdit(Componente).Text;
// Repõe a máscara no componente.
TMaskEdit(Componente).EditMask := Mascara;
// Verifica se o TMaskEdit está vazio.
If (Texto '') Then Result := True;
End;
End;
Utilizando a função (exemplo simples):
If VerificaPreenchimento(edt_matricula) Then
Begin
oFuncionario.Matricula := edt_matricula.Text;
End
Else
Begin
ShowMessage('A Matrícula do Funcionário não foi preenchida.');
edt_matricula.SetFocus;
End;
Espero ter ajudado!
Sds,
Romario
Rodrigo Tognin escreveu:
Na mosca!!!
Obrigado!
Mas perguntando mais uma coisa: Em um cadastro de clientes, alguns campos
são obrigatórios...
E, antes de gravar, serão verificado os campos que faltam. Gostaria de fazer
aparecer os campos que não foram preenchidos.
Na lógica ficaria assim:
Exibe_mensagem 'Os seguintes campos faltam ser preenchidos:' + #pula_linha +
Se (nome = '') Então Exibe_Mensagem 'Nome' + #pula_linha +
Se (endereco = '') Então Exibe_Mensagem 'Endereço'
E assim por diante.
Se tiver um jeito melhor, gostaria de saber.
Obrigado!
Rodrigo Tognin
___
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
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
