하나의 버튼으로 활동을 전환하는 방법은 무엇입니까?

Question

시작 및 중지 버튼에 문제가 있습니다. 내가 시작을 클릭하면

, 그것은 정확한 우리 종료를 중지 할 수 없습니다 :이처럼 만들 수 있습니다 방법 :

후

하기 전에

내 코드 :

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Button1.Enabled := False; 
    TServiceThread.Create; 
end; 

내 친구가이 코드를했다,하지만 작동하지 않습니다 - 내가 시작을 클릭하면,이 닫힙니다.

해결책은 무엇입니까?

Answer 1

먼저이벤트에 Close 이벤트가 발생하여 양식을 닫습니다. 그것을 제거하면 그 문제를 해결할 수 있습니다.

스레드를 시작하고 중지하고 싶다고 생각하면 몇 가지 작업을 수행해야합니다. 당신의 Button1Click 핸들러에서,

type 
    TForm1 = class(TForm) 
    ... 
    private 
    FServiceThread: TServiceThread; 
    ... 
    end; 

지금 :

첫째, 당신은 스레드에 대한 참조를 유지하므로 양식 정의에 새로운 변수를 추가 할 필요가

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Button1.Enabled := False; 
    try 
    if FServiceThread = nil then 
     FServiceThread := TServiceThread.Create; 

    if (Button1.Caption = '&Start') then 
    begin 
     Button1.Caption := '&Stop'; 
     FServiceThread.Start; 
    end 
    else 
    begin 
     Button1.Caption := '&Start'; 
     FServiceThread.Terminate; 
    end; 
    finally 
    Button1.Enabled := True; 
    end; 
end; 

주 당신 스레드의 FreeOnTerminate 속성을 True (종료 될 때 자동으로 스레드를 해제)으로 설정하거나 수동으로 양식의 OnClose 또는 OnDestroy 이벤트에서 직접 해제해야합니다. FreeOnTerminate을 사용하는 경우 스레드의 OnTerminate 이벤트에 대한 이벤트를 추가하고 을 설정하여 다음에 Start 버튼을 클릭 할 때 새 이벤트를 만들 수 있도록해야합니다.