Fonction Msgbox


Personnellement, je trouve à la fois la WinAPI MessageBox et de l'Application.MessageBox et MessageDlg fonctions cludgy et toujours ajouter la fonction suivante pour chaque application.

la fonction MsgBox(const Msg: string
& nbsp MsgType: Entier = MB_OK ou MB_ICONSTOP): Integer
begin
& nbsp Résultat := MessageBox(Application.Poignée, PChar(Msg),
& nbsp & nbsp & nbsp PChar(Application.Titre), MsgType)
fin

exige que les Formes.pas est dans la clause uses.










Fonction Msgbox


Fonction Msgbox : Plusieurs milliers de conseils pour vous faciliter la vie.


Personnellement, je trouve a la fois la WinAPI MessageBox et de l'Application.MessageBox et MessageDlg fonctions cludgy et toujours ajouter la fonction suivante pour chaque application.

la fonction MsgBox(const Msg: string
& nbsp MsgType: Entier = MB_OK ou MB_ICONSTOP): Integer
begin
& nbsp Resultat := MessageBox(Application.Poignee, PChar(Msg),
& nbsp & nbsp & nbsp PChar(Application.Titre), MsgType)
fin

exige que les Formes.pas est dans la clause uses.



Fonction Msgbox

Fonction Msgbox : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation