Delphi7 переводим на Borland С++ 6 (легко но я не могу)

Тема в разделе "Borland C++ Builder & Kylix", создана пользователем -, 23 ноя 2008.

Наш партнер Genesis Hackspace
Статус темы:
Закрыта.
  1. Гость

    Ребята помогите, Есть готовый кода на Borland Delphi7 пытаюсь перевести на Borland C++6
    Задача состоит в следующем . При упаковки и лечении ошибок базы данных открывается окошко которое показывает ход выполнения операции . На Borland Delphi7 выглядит так :


    Indicator: TGauge;
    lbCaption: TLabel;
    bnCancel: TBitBtn;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure bnCancelClick(Sender: TObject);

    bCancel : Boolean;
    mResult : integer;

    Здесь я и застрял !!!
    function TFormProgressCancel.MessageHook(var Msg: TMessage): Boolean;
    begin
    Result := False;
    end;

    //------------------------------------------------------------------------------
    procedure TFormProgressCancel.SetIndicator(v:integer);
    begin
    Indicator.Progress := v;
    end;
    {
    //------------------------------------------------------------------------------
    procedure TFormProgressCancel.FormClose(Sender: TObject;var Action: TCloseAction);
    var time: Cardinal;
    begin
    if (mResult = mrCancel) then
    begin
    action := caNone;
    mResult := mrOk;
    end
    else
    begin
    Indicator.Progress := 100;
    time := GetTickCount;
    while GetTickCount - time < 500 do
    Application.ProcessMessages;
    Application.UnhookMainWindow(MessageHook);
    EnableTaskWindows(EWindowList);
    SetActiveWindow(EActiveWindow);
    end;
    end;
    //------------------------------------------------------------------------------
     
Загрузка...
Похожие Темы - Delphi7 переводим на
  1. Монопо
    Ответов:
    4
    Просмотров:
    1.906
Статус темы:
Закрыта.

Поделиться этой страницей