델파이( Delphi ) 7.2 - 쓰레드 클래스 ( TThread ) 파래미터

Delphi 7.2 - TThread Parameters.exe

버튼을 만들어두고 테스트 하게 됩니다.

생성할 쓰레드 클래스

type
  TThreadName = class(TThread)
  private
    Value: Cardinal;//수치값 파래미터
    Str: String;//문자값 파래미터
    procedure Execute; override;
  end;

var
  MainForm: TMainForm;
  ThreadName: TThreadName;

쓰래드 함수에 메세지박스를 넣고 잘 작동하는지 테스트 합니다.

procedure TThreadName.Execute;begin
  MessageBox(HWND_DESKTOP,PChar(Str),PChar(IntToStr(Value)), MB_ICONINFORMATION);
  ThreadName := nil;
end;

쓰래드를 생성해줄 버튼의 이벤트 전달할 파래미터를 기입합니다.

procedure TMainForm.Button1Click(Sender: TObject);begin
  ThreadName :=  TThreadName.Create(True);//쓰레드 중지 상태로 생성
  ThreadName.FreeOnTerminate := True;
  ThreadName.Value := 100;
  ThreadName.Str := '파래미터 전달';
  ThreadName.Resume;//쓰레드 재개
end;