1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "С и С++", создана пользователем -, 23 ноя 2008.

Статус темы:
Закрыта.
  1. Гость

    Репутация:
    0
    Ребята помогите, Есть готовый кода на 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.983
Статус темы:
Закрыта.

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