Funkce odkazující na položku menu – Delphi – Fórum – Programujte.com

Jak do funkce v souboru functions.pas vložit funkci, která bude odkazovat na všechny položky v menu programu?

Chci aby všechny položky v menu byly vynulovány.

Toto mi nejde, píše mi že TForm1 není definován

function clearDots(obj: TForm1):integer;
begin
 obj.dot_prvnisouhl.checked := true;
end;

Toto taky nejde

function clearDots(obj: TForm1):integer;
begin
 form1.dot_prvnisouhl.checked := false;
end;

dejme tomu že v podmenu bude 30 položek a všechny chci vynulovat, když kliknu na tu položku.

Máš tam 20 unit a 16 formulářů. I když odmítáš číst dokumentaci, tak snad není možné si nevšimnout, jak se s nimi pracuje.

V souboru uc_heb1.pas máš toto.

unit Uc_heb1;

interface

type
  TForm1 = class(TForm)
  ...

var
  Form1: TForm1;
  ...

implementation

...

Takže do souborů, kde potřebuješ znát definici toho typu a/nebo té proměnné, přidáš toto:

uses
  Uc_heb1, ...;

Samozřejmě by té funkci šlo předat menu/submenu/položky, se kterými má pracovat, ale to ty nikdy nepobereš, tak se k tomu prokousej přes Form1.

#2 gna
Ale Uc_heb1 uses functions, když tedy do functions dám uses Uc_heb1, tak to vyvolá chybu

[Fatal Error] functions.pas(6): Circular unit reference to 'functions'

dobré už jsem to vyřešil

function clearDots(obj: TMenuItem):integer;