Caixa de Mensagens!!!

Question

Caros colegas..Existe alguma caixa de mensagem que seja MODAL somente para o sistema, mas para aplicativos externos, n�o seja do tipo MODAL???Se existe como usar?agrade�o antecipadamente..Cabelo...

Sremulador · Answer

acho que o messagedlg (�menssagem�, tipo, [botao], help)...

Cabelo · Answer

Caro ColegaO messagedlg tb � modal..obrigado pela aten��o..Cabelo...

Beppe · Answer

Eu n�o entendi bem o q vc quer...seria bloquear o acesso ao resto do teu programa, e deixar acessar os outros programas? Se for isso, ShowMessage, MessageDlg, e Application.MessageBox fazem isso...

Cabelo · Answer

Caro colega Beppe..Meu problema � o seguinte, eu chamo um aplicativo externo, via programa, como o bloco de notas, assim que eu crio ele preciso enviar uma mensagem, perguntando se deseja salvar ou n�o as altera��es no arquivo..O problema � que se eu usar o mesagedlg, por ser uma caixa de mensagem do tipo MODAL, ele sobrep�e o bloco de notas e fica �no meio� do Aplicativo impossibilitando assim a visualiza��o completa do aplicativo..O qu� preciso � que essa mensagem fique �por baixo� do aplicativo externo..Sem maisAgrade�o a aten��oCabelo...

Adilsond · Answer

Ent�o utilize a fun��o ExecAndWait para executar o seu aplicativo externo e aguardar a sua finaliza��o, e ent�o, depois voc� mostra a mensagem. Ex:

ExecAndWait(�c:\windows\notepad.exe�, ��, SW_SHOW);
if MessageDlg(.....

A fun��o, se voce ainda n�o a possuir esta abaixo:

function ExecAndWait(const FileName, Params: string;
  const WindowState: Word): boolean;
var
  SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: string;
begin
  { Coloca o nome do arquivo entre aspas. Isto � necess�rio devido aos espa�os contidos em nomes longos }
  CmdLine := �"� + Filename + �"� + Params;
  FillChar(SUInfo, SizeOf(SUInfo), #0);
  with SUInfo do begin
  cb := SizeOf(SUInfo);
  dwFlags := STARTF_USESHOWWINDOW;
  wShowWindow := WindowState;
  end;
  Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false,
  CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
  PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);
  { Aguarda at� ser finalizado }
  if Result then begin
  WaitForSingleObject(ProcInfo.hProcess, INFINITE);
  { Libera os Handles }
  CloseHandle(ProcInfo.hProcess);
  CloseHandle(ProcInfo.hThread);
  end;
end;

Cabelo · Answer

Caro colega Adilson..Esta fun��o funcionaria perfeitamente se estivesse compilando .VCL, que n�o � o caso..Meu problema � que compilo .CLX, e esta fun��o utiliza API�s do Windows, e algumas classes que n�o acompanham o Nativo .CLX..Obrigado pela aten��o..Cabelo...

F�rum Caixa de Mensagens!!! #221105