Discussion :

[cmatias]

Bonjour. Je débute (presque) sous delphi 7, et je ne sais pas comment appeler une procédure d'un TForm parent.
mon exemple:
J'ai est un MainForm (de type TFORM) qui cré un TForm "enfant" VideoForm, et je voudrai appeler une procédure de MainForm

depuis un bouton de VideoForm:

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
 
unit MainFormUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DSPack, StdCtrls,VideoFormUnit,SmartFlashFormUnit,retmonitortools,
  ExtCtrls, DB, MySQLDataset, MySQLServer, ComCtrls,Contnrs;
 
type
  TMainForm = class(TForm)
    ButtonOpenDisplay: TButton;
    ...
  private
    ...
  public
    procedure playnext(i : integer);
  end;
 
var
  MainForm: TMainForm;
  VideoForm : TVideoForm;
 
implementation
  ...
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  VideoForm := TVideoForm.Create(Self);
  VideoForm.Show;
end;
 
procedure TMainForm.playnext(i : integer);
begin
  Memo1.Lines.add('Play Next Invoked !!!!');
end;

Code :

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

1
2
3
4
5
6
7
 
unit VideoFormUnit;
...
procedure TVideoForm.ButtonClick(Sender: TObject);
begin
    Application.MainForm.playnext(12);
end;

Comme vous vous en doutez, l'appel à Application.MainForm.playnext() ne marche pas.
Je ne sais pas comment appeler la procedure playnext de MainForm depuis TVideoForm...
Une âme charitable aurait elle l'obligence de me donner un coup de main ?
Merci d'avance.
CMatias.

[Cl@udius]

Salut

Dans ton unité VideoFormUnit ajoutes MainFormUnit aux uses de la partie implémentation, ainsi ta fonction publique sera accessible.

@+ Claudius.

[cmatias]

Salut

Dans ton unité VideoFormUnit ajoutes MainFormUnit aux uses de la partie implémentation, ainsi ta fonction publique sera accessible.

@+ Claudius.

Merci Claudius, malheureusement MainFormUnit appel déjà l'unité VideoFormUnit. Si j'appel MainFormUnit depuis VideoFormUnit j'ai une erreur de clause circulaire.
Merci quend même.

[Aka Guymelef]

As-tu fait attention à rajouter les uses dans la partie Implementation et non la partie Interface ? C'est très important car si tu déclare dans les uses de Interface tu auras effectivement une référence circulaire mais si tu la met dans Interface tu ne l'auras pas.

[Cl@udius]

Au niveau de MainFormUnit fait référence à VideoFormUnit dans la partie Interface.

Et pour VideoFormUnit fait référence à MainFormUnit dans la partie implémentation.

[Edit1] Grillé !!

[Edit2] Bienvenue sur DVP !


@+ Claudius

[cmatias]

Cool ! C'est cool, c'est même très cool. Je ne savais pas qu'on pouvait déclarer une clause USE dans l'implementation.

Voila mon ovation en ton honneur :
Merci Moulte.

Je suis ravis de me joindre à votre forum.
CMATIAS.