아는 사람이 올려달래서 올려봅니다
저도 같은 초보인지라 아무리 봐도 모르겠구요 -.-;

아래부터............

메인폼에서 외부유닛의 사용자함수를 사용하려면
외부유닛의 사용자함수를 Form1.Gauge.Progress := int; 이런식으로 수정해야하는데요

외부유닛을 단 한번도 수정하지 않고 연결할수있는 방법이 궁금합니다 ㅠ.ㅠ
( 영구적으로 사용 )

외부유닛에서 메인폼에 있는 Gauge를 어떻게 선언해야할지 ㅠ.ㅠ;

아래와같이하니까 오류만떠요...

어떻게해야할지 조언좀 부탁드리요 ㅠ.ㅠ

uses Gauges; <- 외부유닛에 추가

var
  Gauge : TGauge;

function MainFormProgress( int : integer; Gauge : TGauge ) : integer;
begin
  Gauge.Progress := int;
  Result := int;
end;

function Progress : Boolean;
var
  i : integer;
begin
  for i := 0 to 100 do
  begin
     Sleep( 10 );

     MainFormProgress( i, Gauge );
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Progress; // 외부 유닛 함수 실행. 폼에는 이미 TGauge를 올려놓았습니다.
end;