Discussion :

[R6502]

Bonjour, je crée une fiche modale (ModalFormf) depuis la fiche principale en cliquant sur un bouton (btnNewForm):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Procedure TMainf.btnNewFormClick(Sender: TObject);
  var F : TModalFormf;  // déclaration
Begin
  F:=TModalFormf.Create(nil);  // création
  try
    F.Showmodal;  // affichage
  finally
   F.Free;  // libération
  end;
end;

Dans cette fiche modale je dépose un bouton et un TEdit, en cliquant sur le bouton j'écris sans problème dans le TEdit:

Code :

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

1
2
3
4
5
 
Procedure TModalFormf.Button1Click(Sender: TObject);
Begin
  Edit1.Text:='Direct'; // ->Affichage OK
end;

Par contre si je dépose un deuxième bouton qui utilise une procédure pour écrire dans un autre TEdit j'obtiens un beau SIGSEV:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Procedure ProcTest(s: String);
Begin
  ModalFormf.Edit2.Text:=s; // ->Génère une exception "External: SIGSEV"
End;
 
Procedure TModalFormf.Button2Click(Sender: TObject);
Begin
  ProcTest('Procedure');
end;

La fiche modale et ses composants ont été dessinés dans l'IDE mais la fiche n'est créée qu'à l'exécution par appui sur le bouton. Par contre si je choisis de la créer automatiquement (et en adaptant évidemment le code) dans les options de projet tout se passe bien, pas d'erreur SIGSEV.

En plus le fait que le premier bouton1 fonctionne correctement fait que la logique m'échappe...

[BeanzMaster]

Bonsoir

C'est tout a fait normal d'avoir l'erreur SIGSEV. Tout simplement car la variable " ModalFormf" n'est pas initialisée dans ta Form principale, tu utilises une variable locale pour créer ta fenêtre var F : TModalFormf;.
plutot que d'écrire la procedure Procedure ProcTest(s: String); simplement, places dans la partie "Protected" ou "Private" de ta "TModalFormf"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Type
  TModalFormf = class(TForm)
  protected
     Procedure ProcTest(s: String);
  end;
 
Implementation
 
Procedure TModalFormf.ProcTest(s: String);
Begin
   Edit2.Text:=s; 
End;

Ou sinon utilises la variable "ModalFormf" dans ta procedure de creation de ta fenêtre principale

Code :

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

1
2
3
4
5
6
7
8
9
Procedure TMainf.btnNewFormClick(Sender: TObject);
Begin
  ModalFormf:=TModalFormf.Create(nil);  // création
  try
    ModalFormf.Showmodal;  // affichage
  finally
   ModalFormf.Free;  // libération
  end;
end;

A+

[R6502]

Merci bien, ça fonctionne
Il faudra que je recherche mieux car il me semble avoir vu un tuto (ici? de Gilles Vasseur ?) qui évoquait ce point.

[Jipété]

Bonjour,

complètement HS mais j'ai trouvé ton pseudo curieux : ça a un rapport avec ce mal connu mais pourtant toujours utilisé processeur ou c'est juste que tu es né en février 1965 ?

[R6502]

Bonjour Jipété,

tout à fait c'est bien en relation avec ce microprocesseur créé par MOS Technology, même si ceux qui ont été dans mes machines ont tous été des Rockwell d'où le R du pseudo...
J'avais même réussi à apprendre l'assembleur 6502 grâce aux excellent bouquins écrits par Rodnay ZAKS plusieurs mois avant d'assembler ma première carte (Junior Computer d'Elektor). Plus tard je suis passé à l'Atom d'Acorn upgradé ultérieurement avec la carte BBC Basic à défaut de pouvoir me payer le BBC lui-même.
Processeur mal connu comme tu dis mais qui a figuré dans de très nombreuses machines des années 80 et dont les descendants sont toujours d'actualité. Quant à Acorn sa descendance nous a donné le Raspberry PI...