(RESOLVIDO) MessageBox - Sistema perde foco.

[pimpocvl007]

Boa noite,

Quando pressiono o botão F3 o sistema salva os dados da tabela e imprime esta mensagem na tela:

messagebox(handle,Pchar('O registro foi salvo com sucesso'), 'Salvar',MB_ICONEXCLAMATION + mb_ok);

...o problema e que quando dou "ok" na mensagem com barra de espaço o sistema perde o "foco", e não consigo utilizar as demais teclas de atalho, como resolver isso?

Att.

Olimpio

Edited January 11, 2012 by pimpocvl007

[Jhonas]

mude para:

MessageDlg('O registro foi salvo com sucesso', mtInformation, [mbOk], 0);

abraço

[pimpocvl007]

Jhonas,

E possível personalizar (mtInformation) o cabeçalho da mensagem?

...na realidade resolvi meu problema mudando a sintaxe da mensagem que utilizava anteriormente, ficou assim:

DE:

messagebox(handle,Pchar('O registro foi salvo com sucesso'), 'Salvar',MB_ICONEXCLAMATION + mb_ok);

PARA:

Application.messagebox(Pchar('O registro foi salvo com sucesso'), 'Salvar',MB_ICONEXCLAMATION + mb_ok);

...acrescentei "Application" e tirei "handle".

Att.

Olimpio

[Jhonas]

E possível personalizar (mtInformation) o cabeçalho da mensagem?

procedure TForm1.Button1Click(Sender: TObject);
begin
   MessageDlg('O registro foi salvo com sucesso', mtcustom, [mbOk], 0);
end;

http://www.planetadelphi.com.br/dica/7047/...nsagens---dicas

veja no help do delphi

MessageDlg function

abraço