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
| unit uMain;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
unit1, unit2, {....} unitx;
type
{ TFormMain }
TFormuMain = class(TForm)
private
{ private declarations }
Procedure procShow(Sender: TObject;sMess:string);
public
{ public declarations }
end;
TFormMain = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
FormMain: TFormMain;
implementation
{$R *.lfm}
{ TFormMain }
Procedure TFormumain.procShow(Sender: TObject;sMess:string);
begin
FormMain.label1.caption:= smess;
end;
procedure TFormMain.Button1Click(Sender: TObject);
begin
TFormuMain(Formmain).procShow(nil,'en local');
Application.CreateForm(Tform1, Form1);
Form1.Show;
TFormUnit1(Form1).procShow(nil, 'en appel');
end;
end. |
Partager