Discussion :

[adelneo]

J'ai une fenêtre qui s'ouvre en cliquant sur un des deux boutons "Ajouter" ou "Modifier".
En appuyant sur ajouter, la fenêtre s'ouvre en mode ajout. Elle s'ouvre en mode modification après l'appui sur le bouton modifier.
Cette fenêtre contient un bouton "Sauvegarder".
Mon problème est que la sauvegarde après un ajout est différente de celle après une modification, donc le code affecté au bouton sauvegarder doit être divisé en partis dépendantes au bouton appuyée (Ajout ou Modification).
Comment connaitre par code quel est le bouton qui a invoqué l'instruction d'affichage de notre fenêtre ? (Sans utiliser des variables de type Boolean).

[skywaukers]

bonjour,

tu peux déclarer une property de type procedure of object que tu renseigne au moment où tu click sur "Ajouter" ou "Modifier" par la méthode adéquate (tu as donc 2 méthodes, une qui fait la création, et l'autre la modification). Cela veut dire que l'opération d'enregistrement (Creation/modification) ne se fait plus directement dans l'appel du click sur le bouton "Sauvegarder", à la place tu fait un appel de cette méthode via la property.

@++
Dany

[adelneo]

je maitrise pas la programmation orientée objet.
Y a t il une méthode plus simple ?

[skywaukers]

Non, il n'y a rien de bien compliqué. Voici un petit exemple écris vite fait :

Premier formulaire ( celui qui a les 2 boutons "Ajouter" et "Modifier") :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit2;
 
type
  TForm1 = class(TForm)
    btnCreer: TButton;
    btnModifier: TButton;
    procedure btnCreerClick(Sender: TObject);
    procedure btnModifierClick(Sender: TObject);
  private
    { Déclarations privées }
    procedure Creer;
    procedure Modifier;
    procedure AppelFormulaire( aMethode : TProcSave);
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.AppelFormulaire(aMethode: TProcSave);
begin
  Form2 := TForm2.Create( Application);
  try
    Form2.ProcedureSauvagarde := aMethode;
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;
 
procedure TForm1.btnCreerClick(Sender: TObject);
begin
  AppelFormulaire( Creer);
end;
 
procedure TForm1.btnModifierClick(Sender: TObject);
begin
  AppelFormulaire( Modifier);
end;
 
procedure TForm1.Creer;
begin
  ShowMessage ( 'je créé avec la valeur : '+ Form2.edt1.Text);
end;
 
procedure TForm1.Modifier;
begin
  ShowMessage ( 'je modifie avec la valeur : '+ Form2.edt1.Text);
end;
 
end.

Voilà maintenant le formulaire affiché (celui qui a le bouton "Sauvegarder") :

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
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TProcSave = procedure of object;
 
  TForm2 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    FProcedureSauvagarde: TProcSave;
    procedure SetProcedureSauvagarde(const Value: TProcSave);
    { Déclarations privées }
  public
    { Déclarations publiques }
    property ProcedureSauvagarde : TProcSave read FProcedureSauvagarde write SetProcedureSauvagarde;
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.btn1Click(Sender: TObject);
begin
  if assigned( FProcedureSauvagarde) then
    FProcedureSauvagarde;
end;
 
procedure TForm2.SetProcedureSauvagarde(const Value: TProcSave);
begin
  FProcedureSauvagarde := Value;
end;
 
end.

Tu vois que dans le OnClick on appelle FProcedureSauvegarde comme on le ferait pour n'importe quelle procédure. La différence tient au fait qu'elle pointe sur l'une ou l'autre en fonction de l'origine de l'appel.

@++
Dany

[JustMe]

SI tu veux savoir quel button a déclenché l'événement tu testes Sender
Comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
if Sender = Button1 then
begin
......
end
else
if Sender = Button2 then
begin
....
end

et ainsi de suite

[Paul TOTH]

oui mais son problème est sur le OK de la fenêtre une fois lancée

le boolean reste le plus simple.

[skywaukers]

le boolean reste le plus simple.

ben oui c'est certains, mais il avait précisé qu'il voulait pas passer par des boolean.

@++
Dany

[Charly910]

Bonjour,

un truc pas propre du tout, mais efficace est de déclarer une variable globale dans une unité, et d'affecter une valeur différente dans chacun des boutons Ajout ou modification.

Ensuite quand on sauvegarde, on teste la variable pour voir dans quel cas on est.

Mais la méthode de SkyWaukers est normalement celle à utiliser.

@+

Charly

[Paul TOTH]

Bonjour,

un truc pas propre du tout, mais efficace est de déclarer une variable globale dans une unité, et d'affecter une valeur différente dans chacun des boutons Ajout ou modification.

Ensuite quand on sauvegarde, on teste la variable pour voir dans quel cas on est.

Mais la méthode de SkyWaukers est normalement celle à utiliser.

@+

Charly

en fait je suis deux fois pas d'accord

d'abord la variable n'a aucunement besoin d'être globale, ensuite contrairement à Sky je placerais le code dans la fenêtre invoquée pour éviter que la fenêtre appelante récupère tous les traitements de toutes les fenêtres appelées

en fait je déclarerais deux méthodes dans Form2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function TForm2.ShowCreate: TModalResult;
begin
  Result := ModalResult;
  if Result = mrOK then
   // code pour Créer
end;
 
function TForm2.ShowUpdate: TModalResult;
begin
  Result := ModalResult;
  if Result = mrOK then
   // code pour Update
end;

[skywaukers]

en fait je suis deux fois pas d'accord

d'abord la variable n'a aucunement besoin d'être globale, ensuite contrairement à Sky je placerais le code dans la fenêtre invoquée pour éviter que la fenêtre appelante récupère tous les traitements de toutes les fenêtres appelées

en fait je déclarerais deux méthodes dans Form2
[code]
function TForm2.ShowCreate: TModalResult;
begin
Result := ModalResult;
if Result = mrOK then
// code pour Créer
end;

function TForm2.ShowUpdate: TModalResult;
begin
Result := ModalResult;
if Result = mrOK then
// code pour Update
end;

oui l'exemple était simpliste et n'avait pour vocation que d'expliquer le mécanisme. Mais les méthodes passée à la form2 ne sont pas obligatoirement déclarées dans la Form1. Perso je ne mets jamais les traitements de base de données dans les formulaires.

@++
Dany

[Paul TOTH]

oui l'exemple était simpliste et n'avait pour vocation que d'expliquer le mécanisme. Mais les méthodes passée à la form2 ne sont pas obligatoirement déclarées dans la Form1. Perso je ne mets jamais les traitements de base de données dans les formulaires.

@++
Dany

je me doute bien

[adelneo]

Je vous remercie.