Need help use delphi code on my bcb2007

[James5950]

Dear Sir,

Below is the delphi code, it is a callback function.

procedure Switch(double Index: longint); cdecl;
begin
case Index of
0 : PostMessage(MainForm.Handle, PM, AM, Index);
1 : MainForm.Switch(Index);
end;
end;

Because, I am not good in Delphi pascal. How to access this function on
BCB2007 or create a function for BCB2007 manipulation?

Thanks for any comments,

James

[chenzero]

Hi James,
It can directly add the delphi pascal source file into BCB project.
After compilation, BCB will create the needed header file automatically,
then you can include the header file where it needs.
chenzero

Post by James5950
Dear Sir,
Below is the delphi code, it is a callback function.
procedure Switch(double Index: longint); cdecl;
begin
case Index of
0 : PostMessage(MainForm.Handle, PM, AM, Index);
1 : MainForm.Switch(Index);
end;
end;
Because, I am not good in Delphi pascal. How to access this function on
BCB2007 or create a function for BCB2007 manipulation?
Thanks for any comments,
James

[James5950]

Hello chenzero,

Thanks, It's work now.

Best regards,
James