Sujet Précédent Sujet Suivant

Comment ?

Fermé
Hacene - 12 août 2001 à 18:39
 PhP - 14 août 2001 à 17:00
Salut tout le monde,

je debute en delphi et je trouve ce langage tres passionnant, seulement je ne sais pas exactement comment peut-on appeller une feuille a partir d'une autre feuille ?
indiquer moi la syntaxe SVP !
Hacene

2 réponses

Réponse 1 / 2
PhP
14 août 2001 à 16:59
Supposons que tu créés 2 fiches vides que tu enregistres respectivement sous Fiche1.pas et Fiche2.pas (ce sont des sous programmes également appelés unit dans pascal)
Chaque fiche comporte un objet TForm : respectivement Form1 et Form2 (c'est le titre que donne également Delphi à chaque fenêtre)

Dans Fiche1 tu ajoutes ensuite un bouton qui va servir à ouvrir
la fenêtre Form2 (de type TForm donc) de l'unit Fiche2 : ok ?

Bien ensuite tu ajoutes le code suivant dans l'événement OnClick du bouton :

Form2.show();


Tu dois avoir un truc du genre

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show();
end;

bien ...

Maintenant pour que l'unité Fiche1 puisse accèder aux objets de l'unité Fiche2 et notemment l'objet Form2 qui est la fenêtre tu dois ajouter le code suivant dans le partie implementation de Fiche1 :

implementation

uses Fiche2;

Ainsi l'unité Fiche1 sait utilisé l'unité Fiche2 : et c'est tout ...

J'aime bien Delphi :) :)

@+
Philippe

unit Fiche1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
ButtonOuvrir: TButton;
procedure ButtonOuvrirClick(Sender: TObject);
private
{ Déclarations privées}
public
{ Déclarations publiques}
end;

var
Form1: TForm1;

implementation

uses Fiche2;
{$R *.DFM}

procedure TForm1.ButtonOuvrirClick(Sender: TObject);
begin
form2.show();
end;

end.
0
Réponse 2 / 2
PhP
14 août 2001 à 17:00
Oops j'ai oublié mon e_mail !

Slt Hacene

Supposons que tu créés 2 fiches vides que tu enregistres respectivement sous Fiche1.pas et Fiche2.pas (ce sont des sous programmes également appelés unit dans pascal)
Chaque fiche comporte un objet TForm : respectivement Form1 et Form2 (c'est le titre que donne également Delphi à chaque fenêtre)

Dans Fiche1 tu ajoutes ensuite un bouton qui va servir à ouvrir
la fenêtre Form2 (de type TForm donc) de l'unit Fiche2 : ok ?

Bien ensuite tu ajoutes le code suivant dans l'événement OnClick du bouton :

Form2.show();


Tu dois avoir un truc du genre

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show();
end;

bien ...

Maintenant pour que l'unité Fiche1 puisse accèder aux objets de l'unité Fiche2 et notemment l'objet Form2 qui est la fenêtre tu dois ajouter le code suivant dans le partie implementation de Fiche1 :

implementation

uses Fiche2;

Ainsi l'unité Fiche1 sait utilisé l'unité Fiche2 : et c'est tout ...

J'aime bien Delphi :) :)

@+
Philippe

unit Fiche1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
ButtonOuvrir: TButton;
procedure ButtonOuvrirClick(Sender: TObject);
private
{ Déclarations privées}
public
{ Déclarations publiques}
end;

var
Form1: TForm1;

implementation

uses Fiche2;
{$R *.DFM}

procedure TForm1.ButtonOuvrirClick(Sender: TObject);
begin
form2.show();
end;

end.
0