MESSAGEBOX MAKER - GÉNÉRATEUR DE MESSAGEBOX EN DELPHI
hurrycane
Messages postés
117
Date d'inscription
samedi 4 janvier 2003
Statut
Membre
Dernière intervention
19 juin 2009
-
10 août 2005 à 08:08
freetai Messages postés 14 Date d'inscription jeudi 31 mars 2005 Statut Membre Dernière intervention 25 septembre 2005 - 29 août 2005 à 23:57
freetai Messages postés 14 Date d'inscription jeudi 31 mars 2005 Statut Membre Dernière intervention 25 septembre 2005 - 29 août 2005 à 23:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/33152-messagebox-maker-generateur-de-messagebox-en-delphi
https://codes-sources.commentcamarche.net/source/33152-messagebox-maker-generateur-de-messagebox-en-delphi
29 août 2005 à 23:57
oui merci je l'ai recu, vraiment désolé de ne pas t'avoir repondu!!!! je suis très pris en ce moment et je ne pense malheureusement pas pouvoir faire avancer ce source pour le moment... En attendant si tu as le temps de le faire de ton coté, poste-le sur ce site et je retirerai le mieux qui est loin d'être parfait... en tout cas merci pour ta proposition d'aide, c'est très aimable à toi ;)
allez @bientôt j'espere!
ps: au fait à propos du bug sur le message de plus de 3 lignes, ne serait-ce pas plutot une histoire de nombre de caracteres? (256 max ou un truc de ce genre??)
23 août 2005 à 12:51
as tu recu le correctif de t'on MessageBox Maker que je t'ai envoyer il y a trois semaine.(Boite privé )
Voilà donc depuis j'attend :-).
Et si tu es toujours interessé je peut envoyer la suite .
j'ai débusqué d'autres erreurs:
si le message comporte plus d'une ligne il est impossible d'utiliser le code généré directement
(sans correction)
et d'autres petites chose ...
voilà @+
ps : loin de moi l'idée de te critiquer où autre, non,
ma seul intention est de de t'aider a améliorer t'on
Prog qui je pense une fois terminé sera très utile.
@+ Cirec
23 août 2005 à 12:50
as tu recu le correctif de t'on MessageBox Maker que je t'ai envoyer il y a trois semaine.(Boite privé )
Voilà donc depuis j'attend :-).
Et si tu es toujours interessé je peut envoyer la suite .
j'ai débusqué d'autres erreurs:
si le message comporte plus d'une ligne il est impossible d'utiliser le code généré directement
(sans correction)
et d'autres petites chose ...
voilà @+
ps : loin de moi l'idée de te critiquer où autre, non,
ma seul intention est de de t'aider a améliorer t'on
Prog qui je pense une fois terminé sera très utile.
@+ Cirec
21 août 2005 à 20:10
Je l'ai mis sur code source, mais ça a planté à un moment donc je lme copie ici :
le PAS :
unit UBM;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, Buttons, StdCtrls;
Const LargeurBouton = 120 ;
HauteurBouton = 27 ;
type
TFBM = class(TForm)
LabelMessage: TLabel;
procedure LesSpeedButtonsClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Déclarations privées }
public
{ Déclarations publiques }
BoutonChoisi : integer ;
Raccourcis : ShortString ;
end;
Function BM(LeTitre, LeMessage : String ; ListeDesBoutons : String = 'Ok' ) : integer ;
var
FBM: TFBM;
implementation
{$R *.dfm}
// pour CODESOURCE
uses DDU ; // Supprimer cette clause et la ligne Remplace...
Function BM(LeTitre, LeMessage : String ; ListeDesBoutons : String) : integer ;
Var S : String ;
BN : ShortString ;
Count : integer ;
I, X, Y : Integer ;
UnSB : TSpeedButton ;
Ok : Boolean ;
Begin
// Init
X := 10 ;
Y := 72 ;
Count := 1 ;
// Premier appel à BM
If FBM=Nil then FBM := TFBM.Create(application) ;
// Titre
FBM.Caption := LeTitre ;
// Message
FBM.LabelMessage.Caption := LeMessage ;
// Liste des Boutons
S := ListeDesBoutons ;
Remplace('#13',#13,S) ; // Supprimer cette ligne et la clause Uses DDU ;
//----------------------------------------------------------------------------
// Boucle de création des boutons
While S<>'' do
Begin
//--------------------------------------------------------------------------
// Détermination du Nom du Bouton (BN : Button Name)
If Pos(#13,S)>0 then
Begin
BN := Copy(S,1,Pos(#13,S)-1) ;
Delete(S,1,Pos(#13,S)) ;
End Else
Begin
BN := S ;
S := '' ;
End ;
While Copy(BN,1,1)=' ' do BN := Copy(BN,2,255) ;
While Copy(BN,Length(BN),1)=' ' do BN := Copy(BN,1,Length(BN)-1) ;
If BN<>'' then
Begin
If X>FBM.Width-LargeurBouton-10 then
Begin
X := 10 ;
Inc(Y,HauteurBouton+3) ;
FBM.LabelMessage.Height := FBM.LabelMessage.Height - HauteurBouton - 3 ;
For I := 1 to FBM.ComponentCount do
Begin
If FBM.Components[i-1] is TSpeedButton then TSpeedButton(FBM.Components[i-1]).Top := TSpeedButton(FBM.Components[i-1]).Top - HauteurBouton - 3 ;
End ;
FBM.Height := FBM.Height + HauteurBouton + 3 ;
End ;
UnSB := TSpeedButton.Create(FBM) ;
UnSB.Parent := FBM ;
If Pos('&',BN)=0 then
Begin
FBM.Raccourcis := FBM.Raccourcis + upcase(BN[1]) ;
BN := '&'+BN ;
End Else FBM.Raccourcis := FBM.Raccourcis + upcase(BN[Pos('&',BN)+1]) ;
UnSB.Caption := BN ;
UnSB.Name := 'B'+IntToStr(Count) ;
Inc(Count) ;
UnSB.Anchors := [akLeft,akBottom] ;
UnSB.Left := X ;
UnSB.Top := Y ;
UnSB.Width := LargeurBouton ;
UnSB.Height := HauteurBouton ;
UnSB.OnClick := FBM.LesSpeedButtonsClick ;
// GLYPH !!!!!!
If FileExists(BN+'.BMP') then UnSB.Glyph.LoadFromFile(BN+'.BMP') ;
Inc(X,largeurBouton + 10 ) ;
End ;
End ;
// Boucle de création des boutons
//----------------------------------------------------------------------------
// Init resultat (BoutonChoisi) à AUCUN
FBM.BoutonChoisi := 0 ;
// Affichage de la Boîte de Message (FBM) en MODAL
FBM.ShowModal ;
// Report du Résultat
Result := FBM.BoutonChoisi ;
// Réinit : Dimension initiale
FBM.ClientHeight := 100 ;
FBM.LabelMessage.Height := 50 ;
// Réinit : suppression des speedbuttons
// Double boucle "breakée" car button.free décale les indices de FBM.Component
// mais je viens de me rendre compte qu'un DOWNTO aurait p'têt fait l'affaire
While Not OK do
Begin
Ok := True ;
For I := 1 to FBM.ComponentCount do
Begin
If FBM.Components[i-1] is TSpeedButton then
Begin
TSpeedButton(FBM.Components[i-1]).Free ;
Ok := False ;
BREAK ;
End ;
End ;
End ;
End ;
procedure TFBM.LesSpeedButtonsClick(Sender: TObject);
var s : ShortString ;
begin
If Sender is TSpeedButton then
Begin
S := TSpeedButton(sender).Name ;
BoutonChoisi := StrtoInt(S[2]) ;
End ;
ModalResult := mrOk ;
end;
procedure TFBM.FormKeyPress(Sender: TObject; var Key: Char);
begin
Key := UpCase(key) ;
BoutonChoisi := Pos(Key,raccourcis) ;
If BoutonChoisi<>0 then Modalresult := mrOk ;
end;
procedure TFBM.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=13 then
Begin
BoutonChoisi := 1 ;
ModalResult := mrOk ;
End ;
If Key=27 then
Begin
BoutonChoisi := 1 ;
ModalResult := mrOk ;
End ;
end;
end.
le DFM :
object FBM: TFBM
Left = 291
Top = 314
Width = 418
Height = 127
Caption = 'FBM'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 13
object LabelMessage: TLabel
Left = 0
Top = 15
Width = 410
Height = 50
Align = alCustom
Alignment = taCenter
Anchors = [akLeft, akTop, akRight, akBottom]
AutoSize = False
Caption = 'LabelMessage'
end
end
21 août 2005 à 19:39
Salut tout le monde et a bientôt!
15 août 2005 à 11:08
C'est un gros problème pour le partage des sources !
On a tous nos petites habitudes ou unités spécifiques piochées ici ou là, ou développées par soi-même.
Autrement, à part les beugs signalés par cirec, que je n'ai pas eu le temps de constater, j'ai trouvé MessageBox Maker pas mal du tout.
Mais, il s'avère que j'ai eu besoin de travailler sur le thème de la message box.
Galère pour retrouver les mtXXXX et les mbYYYY quand on est plongé dans la rédaction de source. Est-ce que MessageBox Maker est assez souple d'emploi ? Le lancer, retaper le titre et le message, puisque qu'on a été bloqué au stade :
Application.MessageBox('Le blabla que vous avez schtroumphé...',
'Voulez-vous continuer ?',
mt????
et enfin choisir icône et bouton et copier puis coller.
Ok
Pour que messagebox maker soit efficace, il faut impérativement penser à s'en servir AVANT qu'on se rappelle qu'on en a besoin, c'est à dire avant d'avoir tapé le titre et le message.
Cela étant dit, comment choisir en toute liberté les noms des boutons ? Par exemple Oui/Non/Peut-être (humour) ou plus sérieusement : Tous/Aucun/Choisir. Ces trois boutons n'existent pas avec MessageBox.
Alors, j'ai eu l'iddée d'ecrire une fonction qui permet d'afficher une boite de message comportant un nombre libre de boutons aux noms (caption) libres.
Function MB ( Titre, Message, Boutons : String ) : Byte ;
Exemple :
...
Reponse := MB ( 'Certaines fiches n''ont pas été enregistrées.'
'Voulez-vous les enregistrer toutes,aucunes,
ou choisir'
'Toutes'#13'Aucunes'#13'Choisir'
) ; // #13 sépare les bouton
Case Reponse of
1 : SaveAll(Self) ; // bouton 1 = toutes
3 : While Choix do Save(FicheChoisie) ;// bt3 = choisir
End ; // case // nota bt2 = aucunes ne fait rien !
...
Dès que j'ai eu l'iddée de faire cette fonction, j'ai pensé que ce serait un truc sympa pour CodeSource.
Je vais aller le mettre
Salut à tous
10 août 2005 à 12:30
CIREC => en effet, je me suis rendu compte des petits defauts (quoique bien ennuyeux...) que tu as remarqué, j'ai été un peu trop pressé et j'ai du zapper quelques trucs avant de mettre le code ici... Vous m'en voyez désolé, vraiment. Du coup, je pensais attendre le week-end pour corriger ça (pas le tps la semaine!!), mais si tu veux me faire part de tes modif CIREC, c'est avec plaisir!
En rapport a la librairie Jedi: c'est une librairie de composants gratuits très interessants, visuels et non visuels:
"Jedi Library (JVCL)
La plus vaste bibliothèque de composants VCL en Open Source. Près de 500 composants avec démos pour Delphi : Impressionnant ! Vous pouvez télécharger la dernière version stable (3.00) incluant la RALib et la RXLib."
http://homepages.borland.com/jedi/jvcl/
le fait d'installer cette librairie permet au composant de base Timage d'inclure des gif.
voilà... A très vite!
10 août 2005 à 12:03
j'ai toute fois quelques petit bugs
1 - dans la config 3 Btn Annuler Réessayer Continuer.
Réessayer à le code retour de 10 et non 4
2 - dans la même config le Code Retour de Continuer
est manquant.
3 - dans toutes les config chez moi du moins
Réessayer et remplacer par Recommencer
si tu le désirs je peut envoyer la correction
qui comporte aussi une rationalisation du Code
(2/3 en Moins) et il fait toujours la même chose.
Cirec@aol.com
Voilà je met quand même 7/10 pour y avoir pensé
ps :
L'unité JvGIF je ne connais pas, du coup l'image que tu as mis dans Image2 (qui est de type Gif je supose) n'est pas reconu comme format valide et donc ne s'affiche pas.
Si tu pouvais préciser ou l'on peut se la procurer.
10 août 2005 à 08:08
donc bonne initiative , j'ai pas esayé encore
mais ca doit etre sympa
bon courage freetai