How to send a string via SendMessage ?

[LucieLastic]

hi

I have a progress label in my main form, and lots of objects which do different processes. When I reach a certain object level, I can't 'see' the main form. I'd like to send a string (eg. 'processing prices') via SendMessage (from the lower objects) so the main form will capture it and update the progress label.

How do I do it?
lou
(I am trying - a lot of people have told me that)

 

[mikeEd]

Best way would probably be to do
SendMessage(mainFormHandle, WM_USER, 0, 0)
Disinguish between different events you want to signal by using WM_USER + 1, WM_USER + 2 etc.

Or, if you want to be able to pass arbitrary strings, just pass a pointer to one in the wparam/lparam parameter.

 

[LucieLastic]

Thanks, Mike. lou
(I am trying - a lot of people have told me that)

 

[LucieLastic]

hi Mike

I'm now trying to actually send a string via the wparam but can't get it to work. Could you help me:-

//in other object
var MainMsg : string;
pMainMsg : array[0..79] of char;
:
pMainMsg := 'Checking yield...';
SendMessage(Globals.MainFormHandle, WM_UPDATEPROGRESSLABEL, integer(pMainMsg),0); //pMainMsg = invalid typecast


//in main form
procedure TFormMain.WMDISPLAYMESSAGE(var Message: TMessage);
begin
//Update progress label with message.WParam;
pnlProgress.Caption := StrPas(Pointer(Message.WParam));
end;

many thanks lou
(I am trying - a lot of people have told me that)

 

[mikeEd]

Should be:

SendMessage(Globals.MainFormHandle, WM_UPDATEPROGRESSLABEL, integer(@pMainMsg),0);

 

[LucieLastic]

Brilliant, thankyou. lou
(I am trying - a lot of people have told me that)