callback form1 form2

Version imprimable

10/06/2009, 16h18
ouiouioui

callback form1 form2

je souhaite afficher une fenêtre pendant un traitement, on m'a dit
de mettre un callback sur ma fonction de traitement dans la fenêtre que je veux afficher pendant le traitement

ainsi, je crée ma fenêtre
j'affecte mon callback
dans l'événement onshow je spécifie le callback
J'affiche la fenêtre avec showmodal
je libère la fenêtre

je cherche un tuto ou même une rubrique d'aide, j'arrive pas à visualiser ce que c'est, j'ai chercher dans le forum et la faq "callback" ne renvoie pas de réponse à mon problème:calim2:

merci

En fait, le CallBack est très proche d'un Gestionnaire d'Evenement ... ce qui serait une meilleure approche entre Form ...

Code:

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
type
  TFormMain = class(TForm)
  private
    procedure Proc(Sender: TObject);
  end;
 
type
  TFormModal = class(TForm)
  private
    FOnTruc: TNotifyEvent;
  pulic
    property OnTruc: TNotifyEvent read FOnTruc write FOnTruc;
  end;
 
procedure TFormMain.ButtonModalClick(Sender: TObject);
begin
  FormModal := TFormModal.Create(nil);
  try
    FormModal.OnTruc := FormMain.Proc;
    FormModal.ShowModal; 
  finally
    FormModal.Free();
  end;
 
end;

10/06/2009, 18h27
ouiouioui

Merci pour l'aide, bon alors j'y étais pas avec mes recherches, TNotifyEvent je connais pff:oops:

avec TNotifyEvent la méthode ou function ou procedure doit avoir un paramètre (Sender: TObject); uniquement, si je veux mettre d'autre paramètres je dois déclarer un nouveau type c'est sa?
10/06/2009, 19h22
ShaiLeTroll
TNotifyEvent est l'évènement Objet de Base !
Comme le OnClick par exempel !

si tu veux plus de paramètre, tu dois définir ton propre type
Code:

1 2 type TOuiOuiEvent = procedure(Sender: TObject; Param1: Integer; Param2: string) of object;
10/06/2009, 20h27
ouiouioui

génial, merci pour tous! je met resolu

j'enleve resolu car je bloke sur la fermeture je comprend pas ou mettre modalresult à ok pour fermer.

ma mini fenetre:

Code:

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
Unit fmLoadCP;
 
Interface
 
Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
 
Type
  TLoadCP = Class(TForm)   
    pbLoad: TProgressBar;
    Label1: TLabel;
    Procedure FormActivate(Sender: TObject);
    Procedure FormCreate(Sender: TObject);
  Private
    FOnShowModal: TNotifyEvent;
    Started:      Boolean;
  Public
    Property OnShowModal: TNotifyEvent Read FOnShowModal Write FOnShowModal;
  End;
 
Var
  LoadCP: TLoadCP;
 
Implementation
 
{$R *.dfm}
 
Procedure TLoadCP.FormActivate(Sender: TObject);
Begin
  If Not Started Then
  Begin
    Started := True;
    OnShowModal(Nil);
    ModalResult := mrOk;
  End;
End;
 
Procedure TLoadCP.FormCreate(Sender: TObject);
Begin
  Started := False;
End;
 
End.

mon appel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
    LoadCP := TLoadCP.Create(Main);
    With LoadCP Do
    Begin
      Try
        OnShowModal := LoadCodePostal;
        If ShowModal = mrOk Then
          MessageDlg('reussi', mtInformation, [mbOK], 0);
      Finally
        Free;
      End;
    End;

sauf que ma procedure LoadCodePostal va jusqu'au bout puis rien aucune erreur ma fenetre reste c'est tout. j'ai essayé de mettre modalresult a la fin de LoadCodePostal sans succès sa reste ma mini fenetre avec la progressbar pleine, toutes mes requetes reussie et pas le message "reussie"

Code:

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
Procedure TMain.LoadCodePostal(Sender: TObject);
Var
  NewCode: TStringList;
  I, Max:  Integer;
Begin
  Try
    Application.ProcessMessages;
    NewCode := TStringList.Create; //je crée une liste
    NewCode.LoadFromFile(OpenTextFileDialog.FileName); //je charge mon fichier dans la liste
    If NewCode.Count > 30 Then //si la liste contient plus de 30 000 lignes il est sûrement correct
    Begin
      ADOQuery.SQL.Clear;
      ADOQuery.SQL.Add('DELETE FROM [code_postal];' + sLineBreak); //je vide la table des anciens codes
      ADOQuery.Prepared := True;
      ADOQuery.ExecSQL; //j'exécute ma requêtes
      I                 := 0;
      Max               := NewCode.Count - 1;
      LoadCP.pbLoad.Max := Max;
      While I <= Max Do //je boucle pour créer les requêtes afin de insérer les nouveaux codes
      Begin
        If NewCode[i] = '' Then //si la ligne est vide je la saute
          Continue;
        //je récupère dans chaque ligne les cinq premiers caractères, et la fin de la ligne moins les six premiers caractères
        ADOQuery.SQL.Clear;
        ADOQuery.SQL.Add('INSERT INTO [code_postal] (code, ville) VALUES (' + Copy(NewCode[i], 1, 5) + ', ''' + Copy(NewCode[i], 7, Length(NewCode[i])) + ''');' + sLineBreak);
        ADOQuery.Prepared := True;
        ADOQuery.ExecSQL; //j'exécute ma requêtes
        LoadCP.pbLoad.Position := I;
        Application.ProcessMessages;
        Inc(I);
      End;
    End
    Else
      ShowMessage('Moins de 30000 lignes le fichiers est sûrement incorrect!');
  Finally
    NewCode.Free; //je libère ma liste
  End;
End;

quelqu'un saurait m'expliquer? Merci

11/06/2009, 14h36
ouiouioui

showmodal appele activate de la form puis met modalresult à o, du coup il existe un evenement apres activate?

j'ai pompé Showmodal que j'override et j'ai inséré un appel à ma procédure dedans sa fonctionne parfaitement
11/06/2009, 15h25
Kaféine
Salut,

Au lieu de cette ligne dans Activate
Code:

1 2 OnShowModal(Nil);
c'est plutôt ça
Code:

1 2 3 if Assigned(FOnShowModal) then FOnShowModal(Self);

ah oui j'ai oublié sa merci

voila ma form maintenant:

Code:

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Unit fmLoadWait;
 
Interface
 
Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Consts;
 
Type
  TLoadWait = Class(TForm)
    pbLoad: TProgressBar;
    Label1: TLabel;
  Public
    Function ShowModal(OnShowModal: TNotifyEvent): Integer; Overload;
  End;
 
Var
  LoadWait: TLoadWait;
 
Implementation
 
{$R *.dfm}
 
Function TLoadWait.ShowModal(OnShowModal: TNotifyEvent): Integer;
Var
  WindowList:     Pointer;
  SaveFocusState: TFocusState;
  SaveCursor:     TCursor;
  SaveCount:      Integer;
  ActiveWindow:   HWnd;
Begin
  CancelDrag;
  If Visible Or Not Enabled Or (fsModal In FFormState) Or
    (FormStyle = fsMDIChild) Then
    Raise EInvalidOperation.Create(SCannotShowModal);
  If GetCapture <> 0 Then
    SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
  ReleaseCapture;
  Application.ModalStarted;
  Try
    Include(FFormState, fsModal);
    If (PopupMode = pmNone) And (Application.ModalPopupMode <> pmNone) Then
    Begin
      RecreateWnd;
      HandleNeeded;
    End;
    ActiveWindow   := GetActiveWindow;
    SaveFocusState := Forms.SaveFocusState;
    Screen.SaveFocusedList.Insert(0, Screen.FocusedForm);
    Screen.FocusedForm := Self;
    SaveCursor         := Screen.Cursor;
    Screen.Cursor      := crDefault;
    SaveCount          := Screen.CursorCount;
    WindowList         := DisableTaskWindows(0);
    Try
      Show;
      Try
        SendMessage(Handle, CM_ACTIVATE, 0, 0);
        ModalResult := 0;
//--------------------------------------------------------------
        If Assigned(OnShowModal) Then
          OnShowModal(nil);
//--------------------------------------------------------------
        Repeat
          Application.HandleMessage;
          If Application.Terminated Then
            ModalResult := mrCancel
          Else
          If ModalResult <> 0 Then
            CloseModal;
        Until ModalResult <> 0;
        Result := ModalResult;
        SendMessage(Handle, CM_DEACTIVATE, 0, 0);
        If GetActiveWindow <> Handle Then
          ActiveWindow := 0;
      Finally
        Hide;
      End;
    Finally
      If Screen.CursorCount = SaveCount Then
        Screen.Cursor := SaveCursor
      Else
        Screen.Cursor := crDefault;
      EnableTaskWindows(WindowList);
      If Screen.SaveFocusedList.Count > 0 Then
      Begin
        Screen.FocusedForm := Screen.SaveFocusedList.First;
        Screen.SaveFocusedList.Remove(Screen.FocusedForm);
      End Else
        Screen.FocusedForm := nil;
      If ActiveWindow <> 0 Then
        SetActiveWindow(ActiveWindow);
      RestoreFocusState(SaveFocusState);
      Exclude(FFormState, fsModal);
    End;
  Finally
    Application.ModalFinished;
  End;
End;
 
End.

Je te propose une autre méthode :

Code de la fiche de traitement

Code:

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
 
const
  WM_AfterShow = WM_USER + $1;
 
type
  TfrmTraitement = class;
 
  TTraitementEvent = procedure(Sender: TfrmTraitement; var Resultat: Boolean) of object;
 
  TfrmTraitement = class(TForm)
    ProgressBar1: TProgressBar;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FTraitement: TTraitementEvent;
    Success: Boolean;
    procedure WMAfterShow(var M: TMessage); message WM_AfterShow;
  public
    property Traitement: TTraitementEvent read FTraitement write FTraitement;
  end;
 
var
  frmTraitement: TfrmTraitement;
 
implementation
 
{$R *.dfm}
 
{ TfrmTraitement }
 
procedure TfrmTraitement.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Success then
    ModalResult := mrOk
  else
    ModalResult := mrCancel;
end;
 
procedure TfrmTraitement.FormShow(Sender: TObject);
begin
  PostMessage(Handle, WM_AfterShow, 0, 0);
end;
 
procedure TfrmTraitement.WMAfterShow(var M: TMessage);
var
  Resultat: Boolean;
begin
  if Assigned(FTraitement) then
  begin
    FTraitement(Self, Resultat);
    Success := Resultat;
    Close;
  end;
end;

l'appel donne:

Code:

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
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  frmTraitement := TfrmTraitement.Create(Self);
  with frmTraitement do
  begin
    try
      Traitement := FaisUnTruc;
      if ShowModal = mrOk then
        MessageDlg('reussi', mtInformation, [mbOK], 0);
    finally
      Free;
    end;
  end;
end;
 
procedure TForm1.FaisUnTruc(Sender: TfrmTraitement; var Resultat: Boolean);
var
  i: Integer;
begin
  for i := 0 to 100 do
  begin
    Application.ProcessMessages;
    Sleep(20);
    Sender.ProgressBar1.Position := i;
  end;
  Resultat := True; //opération réussi false sinon
end;

11/06/2009, 16h53
ouiouioui

quel est l'avantage d'utiliser ta méthode par rapport a ce que j'ai posté merci.
11/06/2009, 17h32
Kaféine

Citation:

Envoyé par ouiouioui

du coup il existe un evenement apres activate?

Ce post est une réponse à cette question avec notamment la création de l'aftershow.

je vois au moins un avantage:
y'a moins de lignes de code...

mais bon ca ne reste qu'une suggestion.
11/06/2009, 21h48
ouiouioui

donc il n'y a rien apres activate il faut soit poster un message soit modifier showmodal. C'était très interessant ce sujet pour moi merci à tous.