HOW-TO reveal a message box and not close a Listbox

[[email protected]]

Qwk Question,

I would like to have a ListBox expose a message BUT NOT CLOSE the ListBox, so that when the message closes the ListBox is still open.

Is there an easy answer on this?

THANKS!!!!!!!!!!!!!!

Kent

[Gintaras]

In the static text can be used links. On link click is called your callback function that can do anything.

Macro Macro2757

Code:

Copy      Help

sel ListDialog("one[]two" F"<>... <a href=''{&sub.ListDialogLinkCallback} Hello''>message box</a> ...")
,case 1
,case 2


#sub ListDialogLinkCallback
function# hwnd $params
mes params

[[email protected]]

Thanks & worked on this for a while.

Here is a more precise description of what I would like to do.

Assume that a ListBox is running

I have a 'keyboard control' that runs and verifies that the ListBox is "active" via:

_____________________________________________
g1
wait 0.15
if(IsThreadRunning(F"{ifThisParentThreadIsRunning}"))
int w=win(F"{listBoxSysTitle}" "#32770")
;;g2
out listBoxSysTitle
ifa(w)
wait 0.1
int vk=wait(0 K CAs)
wait 0.01
mac "Oc_LBX_24k_8item_S_Hotkey_MSG"
wait 10
goto g1
else
wait 0.15
goto g1
else
mes "KonTrol Thread is NOT running"
wait 1
end
_____________________________________________

Obviously when the CTRL + ALT + S combination is pressed, then the 'mac "Oc_LBX_24K-8item_S_Hotkey_MSG" function is called for

This function simply displays a message box.

AND my desire is to have the ListBox stay active while this 'instruction' is displayed.

There are a couple of things to understand per what I want. I do NOT use the mouse with my macros, so all my listboxes have 'hotkeys' that control all that happens.

SO, is there a way to have this happen like the example that you included?

AND you may be tired of hearing this, but I am not a programmer and I can never thank you enough for your help in what may always appear to be so elementary!!!

Thank You Indeed!!!1

[Gintaras]

Add n in mes third argument. It means "don't make the message box window active".

mes "" "" "n"

[[email protected]]

Got it working! with:

MES m
m.style="YNCn"
m.x=100
m.y=1
m.timeout=3
m.default='C'
int i=mes("message" "title" m)

Thanks,

Kent