implementation uses LaFicheAModifier; // correspond au fichier *.pas de la fiche à modifier (sans l'extension) {$R *.DFM} procedure TfmOptionfenetre.Button1Click(Sender: TObject); begin fmPicwins.Width := StrToInt(edLargeur.Text); fmPicwins.Height := StrToInt(edHauteur.Text); end;
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMain = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Main: TMain; implementation {$R *.DFM} uses Unit2; procedure TMain.Button1Click(Sender: TObject); begin fmOptionFenetre.ShowModal; end; end.
unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TfmOptionFenetre = class(TForm) edLargeur: TEdit; edHauteur: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var fmOptionFenetre: TfmOptionFenetre; implementation uses Unit3; {$R *.DFM} procedure TfmOptionFenetre.Button1Click(Sender: TObject); begin fmPicwins.Width := StrToInt(edLargeur.Text); fmPicwins.Height := StrToInt(edHauteur.Text); fmPicWins.ShowModal; end; end.
unit Unit3; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TfmPicWins = class(TForm) private { Déclarations privées } public { Déclarations publiques } end; var fmPicWins: TfmPicWins; implementation {$R *.DFM} end.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question