[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 メーリングリストの案内