[Question]Règle de codage pascal dfm et class?
Bonjour
Est-il possible de déclarer et coder dans un source pascal d'une TForm d'autre class.
En résumé avoir le code ci-dessous :
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
|
Unit EC_INFODISK;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
//****************//
//****************//
TCLASS1 = Class
private
{ Déclarations privées }
public
procedure ALPHA_1_Classe1;
procedure ALPHA_2_Classe1;
end;
//****************//
//****************//
TCLASS2 = Class
private
{ Déclarations privées }
public
procedure ALPHA_1_Classe2;
procedure ALPHA_2_Classe2;
end;
var
Form1: TForm1;
MA_CLASS1:TCLASS1;
MA_CLASS2:TCLASS2;
implementation
USES USYSTEM,
URESEAU ;
{$R *.dfm}
//-----------------------------------//
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
//-----------------------------------//
procedure TCLASS2.ALPHA_1_Classe2;
begin
end
//-----------------------------------//
procedure TCLASS2.ALPHA_2_Classe2;
begin
end
//-----------------------------------//
procedure TCLASS1.ALPHA_1_Classe1;
begin
end
//-----------------------------------//
procedure TCLASS1.ALPHA_2_Classe1;
begin
end
//-----------------------------------//
end. |
Merci de votre aide
Cordialement
Qays