Discussion :

[alberth]

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

[Eric Sigoillot]

Bonjour,

Merci d'utiliser les balises [code].

C'est bien joli de recopier le code source, mais ça ne suffit pas
Il faut aussi associer les évènements aux procédures. Un détour par l'onglet Events de l'éditeur de propriétés ne fera pas de mal

@++

[Clandestino]

hihihi

ce bout de code :

Code :

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

1
2
3
4
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.text:='Ouè';
end;

Demande au programme d'écrire 'Ouè' dans l'edit 1 à chaque fois qu'il est censé changer de contenu... Bien sur que du coup, rien ne change !!!!
ou plutot si, la première fois !!!

Bonne programmation

Clandestino

[alberth]

Bonsoir tout le monde les gens,

Effectivement et pour vous faire mirroir dans votre façon de répondre , je dirais qu'il ne faut jamais oublier de ne pas confondre vitesse et précipitation.
Méa coulpa.
Merci donc à Eric Sigoillot et à Clandestino.