Слияние кода завершено, страница обновится автоматически
unit progressform;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, cyPanel, Forms, Controls, Graphics, Dialogs;
type
{ TfrmProgress }
TfrmProgress = class(TForm)
StatusBar1: TCyPanel;
private
public
procedure SetInfo(AValue:string);
end;
implementation
{$R *.frm}
{ TfrmProgress }
procedure TfrmProgress.SetInfo(AValue: string);
begin
StatusBar1.Caption:=AValue;
Application.ProcessMessages;
end;
end.
Вы можете оставить комментарий после Вход в систему
Неприемлемый контент может быть отображен здесь и не будет показан на странице. Вы можете проверить и изменить его с помощью соответствующей функции редактирования.
Если вы подтверждаете, что содержание не содержит непристойной лексики/перенаправления на рекламу/насилия/вульгарной порнографии/нарушений/пиратства/ложного/незначительного или незаконного контента, связанного с национальными законами и предписаниями, вы можете нажать «Отправить» для подачи апелляции, и мы обработаем ее как можно скорее.
Опубликовать ( 0 )