제가 한소스가 대충 아래에 잇거든여...
버튼누르면 실행돼는건대여....
이게 맞나여? 틀리면 고쳐주세두 대구여...
델파이 배운지 한달도 안됏거든여...
회사에서 하는 일이라서 얼릉 해야돼는대 쩝...
type
TReadThread=class(TThread)
protected
procedure Execute; override;
public
constructor Create();
end;
private
{ Private declarations }
public
aaa,bbb,con,gun:integer;
procedure view;
{ Public declarations }
end;
var
Form2: TForm2;
implementation
constructor TReadThread.Create();
begin
Execute;
end;
procedure TReadThread.Execute;
begin
Form2.View;
end;
procedure TForm2.View;
begin
//실행소스...
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
TReadThread.Create();
end;