[Tokyo.pm] タイトルバーを消す方法

matsumotoya matsumotoya @ om.jalinfotec.co.jp
1999年 8月 9日 (月) 00:31:03 CDT


松本です。

一応うまくいったので、よた話モードです。

Tkのディフォルトの Window Style は 16cf0008 というふうに
でました。タイトルバーを消すには、WS_CAPTION のオプションを
はずせばよいわけです。

以下ソースです。あとは根気よく見栄えを良くしていけば。

use Tk;
use Win32::GUI;
use Win32::API;

$SetWindowLong = new Win32::API("user32","SetWindowLongA",[N,N,N],N);
$GetWindowLong = new Win32::API("user32","GetWindowLongA",[N,N],N);
#
#  Main
#
$mw = new MainWindow;
$mw->title("neko");

$mw->after(200,\&start);
MainLoop;

sub start
{
   $desktop = GUI::GetDesktopWindow();
   $window = GUI::GetWindow($desktop,GW_CHILD);
   while($window){
      $title = GUI::Text($window);
      last if ($title eq "neko");
      $window = GUI::GetWindow($window,GW_HWNDNEXT);
   }
   print sprintf("%lx\n",$GetWindowLong->Call($window,-16));        
   $SetWindowLong->Call($window,-16,hex("160f0008"));  
   print
sprintf("%lx\n",$GetWindowLong->Call($window,-16));                    
}



Tokyo-pm メーリングリストの案内