Delphi: Draw a text in a caption form for vista with aero like windows 7

aerodelphinonclient

How does one draw text (with onClick event) in a caption bar on vista with aero Like Windows 7 ?

alt text http://img529.imageshack.us/img529/3643/immaginembl.jpg

The example at delphi.about.com doesn't work on Vista with aero. Do you have any ideas?

Thanks to all.

Sorry for my bad english.

Best Solution

Drawing in the nonclient region causes glass to be disabled automatically. What MS Office does is expand the client region to cover the borders. Look at the "Drawing in the NC area with glass" section of this WPF article for suggestions. You'll have to convert the API calls to Delphi yourself, I'm afraid.