Olá galera, nesta Quick Tips, irei mostra uma mensagem, TaskMessageDlg, não muito utilizada pelos programadores, pois esta não é tão conhecida, mas veja que efeito magnífico temos usando este tipo de mensagem. Podemos encontrar esta function em Dialogs.
O que é TaskMessageDlg ?
TaskMessageDlg é uma mensagem onde podemos informar um título, uma descrição, o tipo da Mensagem, os botões que queremos exibir, além de um botão default.
TMsgDlgType tem os seguintes tipos
· mtWarning
· mtError
· mtInformation
· mtConfirmation
· mtCustom
Buttons tem as seguintes opções
| TMsgDlgBtn | Valor de Retorno |
| mbOk | mrOk |
| mbOK | mrOk |
| mbCancel | mrCancel |
| mbYes | mrYes |
| mbNo | mrNo |
| mbAbort | mrAbort |
| mbRetry | mrRetry |
| mbIgnore | mrIgnore |
| mbAll | mrAll |
| mbNoToAll | mrNoToAll |
| mbYesToAll | mrYesToAll |
| mbClose | mrClose |
Veja sua estrutura:
Function TaskMessageDlg(const Title: string; const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Integer): Integer; overload;
Veja o exemplo abaixo
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if TaskMessageDlg('Digite um Título para a Mensagem',
'Digite uma Descrição para a Mensagem', mtWarning,mbYesNo,0,mbYes) = mrYes then
ShowMessage('Foi clicado o botão yes')
else
ShowMessage('Foi clicado o botão no');
end;
Podemos notar na imagem uma mensagem bem mais apresentável do que um simples ShowMessage, com esta mensagem damos uma boa aparência a aplicação.
Fico por aqui ate à próxima Quick Tips
Um abraço
Wesley Y
wyamazack@rwsolution.com.br
