Discussion :

[Roland Chastain]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  Interfaces, Forms, Dialogs, Controls;

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  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...

[e-ric]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DomDA91]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Roland Chastain]

Merci pour vos réponses.