Ĺadny brzuch
Jak chcę stworzyć nowy moduł po prostu wybieram new-> unit . Wpisuje jego nazwe i taka sama dopisuje w uses w glownym module. Gdy dorzucam procedurki naprzyklad pokazujace komunikat wszystko jest w porzadku. W jaki sposob jednak odniesc się do komponentu ktory znajduje sie na glownym formularzu ??? :excl: :excl: :excl:
Musisz do uses modulu dodac unit gdzie jest forma do odwolania sie lub robic to przez parent (ale nie wiem czy zadziala :/)
nazwaformygł.nazwakomonentu
to powinno działać
Jak chcę stworzyć nowy moduł po prostu wybieram new-> unit . Wpisuje jego nazwe i taka sama dopisuje w uses w glownym module. Gdy dorzucam procedurki naprzyklad pokazujace komunikat wszystko jest w porzadku. W jaki sposob jednak odniesc się do komponentu ktory znajduje sie na glownym formularzu ??? :excl: :excl: :excl:
Tylko, że chyba musisz do tego nowego moduło dopisać uses Unit1.
Edit:
Asdef mnie wyprzedził ;)
Nic :( Odwolanie form1.button1... nie dziala, natomiast gdy dorzuce w uses nowego modulu nazwe glownego modulu to wyswietla blad : "Fatal Error - Circular unit reference to 'menu'".
moment powoli napisz co chcesz osiągnąć tak będzie nam łatwiej ;)
napisz tak w tym nowym module:
unit unit2;
interface
uses windows, classes ... //nie wpisuj tu unit1!
...
implementation
uses Unit1;
procedure ...;
...
Użytkownik LewB ar edytował ten post 11 luty 2005, 15:56
Lewb Ar... dalej klapa...
No to daj kod i napisz, w którym miejscu jest błąd :excl:
Co ja chce zrobic ???
1.Chce dolaczyc nowy modul do standardowego projektu (zebym mial unit1 i unit2).
2.Chce z drugiego modulu odwolac sie do formy np. chce napisac procedurke w drugim module :
interface
procedure test;
implementation
procedure test;
begin
Form1.Caption := 'test'; ///// cos takiego sie nie sprawdza wyskakuje blad, sprawdcie sami, oczywiscie w unit1 mam dopisane do uses unit2.
end;
I co wy na to ???
kod do unit1:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Unit2, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin test; end; end.
i kod do Unit2:
unit Unit2; interface procedure test; implementation uses Unit1; procedure test; begin Form1.Caption := 'test'; end; end.
I wsio działa :)
Dzieki, dziala
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Musisz do uses modulu dodac unit gdzie jest forma do odwolania sie lub robic to przez parent (ale nie wiem czy zadziala :/)
nazwaformygł.nazwakomonentu
to powinno działać
Jak chcę stworzyć nowy moduł po prostu wybieram new-> unit . Wpisuje jego nazwe i taka sama dopisuje w uses w glownym module. Gdy dorzucam procedurki naprzyklad pokazujace komunikat wszystko jest w porzadku. W jaki sposob jednak odniesc się do komponentu ktory znajduje sie na glownym formularzu ??? :excl: :excl: :excl:
Tylko, że chyba musisz do tego nowego moduło dopisać uses Unit1.
Edit:
Asdef mnie wyprzedził ;)
Nic :( Odwolanie form1.button1... nie dziala, natomiast gdy dorzuce w uses nowego modulu nazwe glownego modulu to wyswietla blad : "Fatal Error - Circular unit reference to 'menu'".
moment powoli napisz co chcesz osiągnąć tak będzie nam łatwiej ;)
napisz tak w tym nowym module:
unit unit2;
interface
uses windows, classes ... //nie wpisuj tu unit1!
...
implementation
uses Unit1;
procedure ...;
...
Użytkownik LewB ar edytował ten post 11 luty 2005, 15:56
Lewb Ar... dalej klapa...
No to daj kod i napisz, w którym miejscu jest błąd :excl:
Co ja chce zrobic ???
1.Chce dolaczyc nowy modul do standardowego projektu (zebym mial unit1 i unit2).
2.Chce z drugiego modulu odwolac sie do formy np. chce napisac procedurke w drugim module :
interface
procedure test;
implementation
procedure test;
begin
Form1.Caption := 'test'; ///// cos takiego sie nie sprawdza wyskakuje blad, sprawdcie sami, oczywiscie w unit1 mam dopisane do uses unit2.
end;
I co wy na to ???
kod do unit1:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Unit2, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin test; end; end.
i kod do Unit2:
unit Unit2; interface procedure test; implementation uses Unit1; procedure test; begin Form1.Caption := 'test'; end; end.
I wsio działa :)
Dzieki, dziala