Bonsoir tout le monde les gens,

Je teste lazarus actuellement et pour faire simple je n'ai ni plus ni moins repiqué un programme test de delphi3 pour le transposer sur Lazarus.
Voici la version Lazarus :
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 unit Unit1; 
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Spin,
  StdCtrls, Buttons;
type
  { TForm1 }
  TForm1 = class(TForm)
    Quitter: TButton;
    Edit1: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    procedure Edit1Change(Sender: TObject);
    procedure QuitterClick(Sender: TObject);
    procedure SpinEdit2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
var
  Form1: TForm1; 
implementation
{ TForm1 }
procedure TForm1.QuitterClick(Sender: TObject);
begin
  close;
end;
procedure TForm1.SpinEdit2Click(Sender: TObject);
begin
  edit1.text:=(inttostr(spinedit1.value+spinedit2.value));
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.text:='Ouè';
end;
initialization
  {$I unit1.lrs}
end.
A la compilation, aucune erreur propre de chez propre. Au lancement j'ai tout : la fenêtre, le bouton, les spinedit sauf, sauf...... le résultat escompté.
Mon Tedit ne varie pas d'un poil.
J'ai suivi la procédure d'installation de lazarus avec FP à la lettre.
Je suis sous XP Pro.

Un p'tit coup de main SVP pour une piste à suivre, parceque là........: :
D'avance merci