Delphi 7 - ShowMessage to Stay on Top and not to be Able to Click Other Windows of applications unless you Press ''ok'' button in the message -

how can that?

procedure tfmain.button2click(sender: tobject); begin showmessage('cya!!'); application.terminate; end; 

is there way able click ''ok'' showmessage , if dont wont able click else in interface?

i think you're looking mb_systemmodal flag on messagebox. instead of showmessage, call messageboxdirectly, this:

messagebox(application.handle,'cya!!',pchar(application.title),mb_ok or mb_iconinformation or mb_systemmodal);