[Lazarus] OOP basics

[Kjow]

Hi all,

I need to pass a my custom TMainForm to a function on other unit, e.g.

main unit:

...
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, test;

type

TMainForm

  TMainForm = class(TForm)
    ...
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    x:integer;
    ...
  public
    { public declarations }
    y: integer;
    ...
  end;

_______

Other unit "test.pas":

unit test;

{$mode objfpc}{$H+}

interface

uses
  third;

procedure init(...; ...; var Form: TMainForm);

implementation

procedure init(...; ...; var Form: TMainForm);
begin
...
Form.y:=0;
end;

_______

Is it possible?

PS I'm sorry for this example, maybe it is not perfect, I wrote it on the fly.

Thanks,
Kjow

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus