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

  • Автор темы -
  • Дата начала
Статус
Закрыто для дальнейших ответов.

Гость
#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;

Здесь я и застрял !!!
EWindowList:pointer;
EActiveWindow:HWND;
function MessageHook(var Msg: TMessage): Boolean;
procedure SetIndicator(v: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;
//------------------------------------------------------------------------------
 
Статус
Закрыто для дальнейших ответов.