Utilisation de MessageDlg et ShowMessage dans un simple programme

Bonjour !

J'avais besoin pour mon usage privé d'un simple programme ouvrant une boîte de dialogue et effectuant une action lorsque l'utilisateur appuie sur la touche Entrée.

Après quelques tâtonnements et recherches, j'ai obtenu le résultat souhaité de la façon suivante. J'ai créé mon fichier *.lpr dans un éditeur de texte, avec les unités suivantes :

Code:

---

Interfaces, Forms, Dialogs, Controls;

---

et cette ligne au début du programme principal (ne me demandez pas pourquoi) :

Code:

---

Application.Initialize;

---

Puis j'ai ouvert Lazarus, choisi l'option "Nouveau projet depuis le fichier", choisi "programme simple" comme type de projet, et enfin ajouté le paquet LCL à mon projet. Ouf !

Je voudrais savoir 1° si mon code est correct ou si c'est un bricolage m*** :) 2° si vous voyez une autre façon de fabriquer une application de ce genre.

Avec Delphi c'est plus simple ! J'ajoute Vcl.Dialogs dans les unités de mon application console et ça roule...

Salut Roland

A ma connaissance, toute application GUI attend un objet Application créé automatiquement dans Form mais le code du projet doit procéder aux éventuelles auto-créations de fiches puis à un appel à Application.Run, ce que ne fais pas ton programme.

Après quelques essais, j'ai ajouté ces lignes en fin de programme et cela semble résoudre le problème (en tout cas sous Debian/Linux64)

Code:

---

1 2 3

Application.Terminate; // Car on ne fait rien après. Application.Run;

---

L'appel à Application.Initialize semble surtout lié au démarrage du WidgetSet.

Remarque : l'objet Application a été étendu aux applications console mais sont fonctionnement est légèrement différent.

Cdlt

Bonjour,

Je pense qu'on peux faire plus simple pour créer le projet : il suffit de créer une application Lazarus "normale" comme d'habitude puis de supprimer la fiche principale par la commande de menu Projet / Retirer du projet... Unit1.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

program Project1;   {$mode objfpc}{$H+}   uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, Dialogs; // ajouter les unités nécessaires   {$R *.res}   begin // RequireDerivedFormResource:=True; // Application.Initialize; // Application.Run;   ShowMessage('Coucou'); MessageDlg('Bonjour!',mtInformation,[mbCancel],0)   end.

---

Sous Windows cela fonctionne, du moins en ce qui concerne les boîtes message, pas même besoin de Application.Initialize ni Application.run.

Merci pour vos réponses. :ccool: