Validando e re-validando o que o Rubem disse,
O que faço na minha função é dar um CreateMessageDialog associando seu
retorno a uma variável do tipo TForm. Se for estudar a função MessageDlg
original, verá que ela chama MessagedlgPosHelp e que por sua vez chama
CreateMessageDlg, ou seja, dá pra
Boa solução Emerson, interessante.
[]s
Emerson respondeu:
Desculpem, acho que ficou meio vago, vou melhorar.
Crie a seguinte procedure.
procedure TfrmTelaPrincipal.OnActiveFormChange(Sender: TObject);
var i : integer;
begin
try
//Verifica se o form é uma caixa de mensagem
if
Esse é o problema.
Embora interessante, criar uma function a MessageDlg já traduzida ainda,
acho eu, mais viável.
--
Boa Leitura,
Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
Num gostei muito da cor rsrsrs, mas ficou porreta.
[]s
Eduardo Silva dos Santos respondeu:
Nos meus projeto em Delphi 7 uso o messagedlg padrão com a unit const.pas
traduzida,
para os projetos no Delphi 2007 fiz um dlg personalizado
http://www.drdsistemas.com.br/dlg.PNG
4 matches
Mail list logo