título em showmessage
28/08/2012
0
procedure TForm32.Button1Click(Sender: TObject);
begin
ShowMessage('cliente cadastrado com sucesso');
end;
A mensagem funciona mas fica o nome na barra de título: 'Project1'
Como eu mudo este texto?
Obrigada
Carla Batista
Post mais votado
28/08/2012
//Substitui o ShowMessage
procedure Mensagem(Msg: String);
begin
with CreateMessageDialog(Msg, mtInformation, [mbOk]) do
try
Caption := 'Importante - Informação';
ShowModal;
finally
Free
end;
end;
// exibe uma caixa de dialogo pedindo a confirmação (SIM - NÃO)
function Confirma(Msg: String): Boolean;
var
i : Integer;
f : TForm;
begin
f:= CreateMessageDialog(Msg,MtConfirmation,[mbYes,mbNo]);
try
for i:=0 to f.ComponentCount -1 do
begin
if f.Components[i] is TButton then
with TButton(f.Components[i]) do
case modalresult of
mrYes: Caption := '&Sim';
mrNo: Caption := '&Não';
end;
end;
f.Caption := 'Confirmação';
Result := f.ShowModal = mrYes;
finally
f.Free;
end;
end;
Espero ter ajudado..
Abraços!!
Singular Ti
Mais Posts
28/08/2012
William
[url]http://www.planetadelphi.com.br/dica/3445/usando-o-messagedlg[/url]
28/08/2012
William
[url]http://marcosalles.wordpress.com/2010/04/21/funcao-function-messagedlg-delphi/[/url]
28/08/2012
Marcos Rossetto
Application.MessageBox('Texto','Titulo',mb_'Icones'+Mb_'Botao');
espero ter ajudado...
13/09/2012
Carla Batista
Não é o que aparece dentro da msg não, mas sim o que aparece na barra de titulo, obrigada.
14/09/2012
Bruno Leandro
Project -> Options -> Application -> Title
ou
Clique com o Botão direito do mouse em cima do nome do projeto e escolha Rename e coloque outro nome
15/09/2012
Singular Ti
oi pessoal, como eu faço para mudar o título da caixinha quando uso um showmessage?
ShowMessage é uma coisa, o nome do projeto na barra de titulo é outra coisa... Tenha mais atenção!!
Abraços..
19/09/2012
Carla Batista
19/09/2012
Carla Batista
até mais
19/09/2012
Alisson Santos
27/03/2013
Joel Rodrigues
Não vi confusão.
Mas como a dúvida foi sanada, estou encerrando o tópico.
Abraço a todos.
Clique aqui para fazer login e interagir na Comunidade :)
