Убрать сообщение

[mitiay]

else begin
        if Assigned(FOnError) then FOnError(Self, 'User aborted!');
        RecordState := False;
        FSuccess    := Fail;
        if not FShowPreview then begin
          FOnPreview(Self, nil, False, False);
          FPreviewTimer.Enabled := False;
          ShowWindow(FFrame.Handle, SW_HIDE);
          end;
	  		ICClose(ic);
   	    Result := 0;
        if FRestore then
          Application.Restore;
        Exit;
        end;
	  	end;
	  end
  else begin
    if (MessageBox(Application.MainForm.Handle, 'You no selected compressor, use default compressor?', 'Notice',
                       MB_YESNO or MB_ICONEXCLAMATION) = IDYES) then begin
 	    CompfccHandler := mmioFOURCC('M', 'S', 'V', 'C');
      StrCodec       := 'MS Video Codec';
      end
    else begin
      if Assigned(FOnError) then FOnError(Self, 'User aborted!');
      RecordState := False;
      FSuccess    := Fail;
      if not FShowPreview then begin
        FOnPreview(Self, nil, False, False);
        FPreviewTimer.Enabled := False;
        ShowWindow(FFrame.Handle, SW_HIDE);
        end;
   	  Result := 0;
      if FRestore then
        Application.Restore;
      Exit;
      end;
    end;

как только не пробывал!Нужно убрать сообщение

'You no selected compressor, use default compressor?', 'Notice',

[Xo66um]

А зачем его убирать? Это часть логики данной процедуры, если его просто убрать - не сработает другое логическое выражение.

[mitiay]

Сообщение от Xo66um

А зачем его убирать? Это часть логики данной процедуры, если его просто убрать - не сработает другое логическое выражение.

Так вот мне надо убрать )

[Аватар]

Там не только сообщение, но и анализ реакции пользователя на него с разными ветками выполнения. Чего делать будешь?

[Xo66um]

Ну... Держи, сообщения нет... Но логика будет постоянно срабатывать на этом месте, т.к. оно всегда равно true. Но я так и не понял, чем сообщение-то не угодило?

else begin
        if Assigned(FOnError) then FOnError(Self, 'User aborted!');
        RecordState := False;
        FSuccess    := Fail;
        if not FShowPreview then begin
          FOnPreview(Self, nil, False, False);
          FPreviewTimer.Enabled := False;
          ShowWindow(FFrame.Handle, SW_HIDE);
          end;
	  		ICClose(ic);
   	    Result := 0;
        if FRestore then
          Application.Restore;
        Exit;
        end;
	  	end;
	  end
  else begin
    if 1 = 1 then begin
 	    CompfccHandler := mmioFOURCC('M', 'S', 'V', 'C');
      StrCodec       := 'MS Video Codec';
      end
    else begin
      if Assigned(FOnError) then FOnError(Self, 'User aborted!');
      RecordState := False;
      FSuccess    := Fail;
      if not FShowPreview then begin
        FOnPreview(Self, nil, False, False);
        FPreviewTimer.Enabled := False;
        ShowWindow(FFrame.Handle, SW_HIDE);
        end;
   	  Result := 0;
      if FRestore then
        Application.Restore;
      Exit;
      end;
    end;