你能在pythontkinter中更改小部件的父级吗?

2024-05-11 12:19:51 发布

您现在位置:Python中文网/ 问答频道 /正文

有没有办法改变一个小部件的(ttk.框架在这种情况下)父母?我在widgets.config中找不到要使用的关键字。这在pythontkinter中是不可能的吗?我想要的功能是把我当前的框架tkk.笔记本小部件,当我双击选项卡时,要将所有内容都放在选项卡的框架中,请移动到它自己单独的顶层窗口。这样,用户在处理另一个选项卡时可以看到该选项卡的可视引用。如果没有我所要求的框架功能,我想不出任何其他方法来实现这一点。也许如果有人能绕过这个问题,我就不必担心父窗口小部件的功能了。在

干杯, 克里斯


Tags: 功能框架config内容部件情况笔记本关键字
2条回答

您不能将一个小部件或一组小部件移动到新的父级,但是可以用一些简单的例程来模拟它。我不使用python,但是您应该能够将下面的代码从tcl转换成tkinter。simulate我的意思是将小部件和任何孩子递归地复制到新的父对象。Tk提供了精确复制要移动/复制的小部件(包括所有子部件)的布局、绑定和外观所需的内省。接下来的例程将允许您将单个或复杂的小部件移动或复制到新的父级。在

proc getWidgetType { w } {
    set class [winfo class $w ]
    if { [ string index $class 0 ] eq "T" &&
     [ string match "\[A-Z\]" [string index $class 1 ] ] } {
        set class [string range [string tolower $class ] 1 end ]
        set class "ttk::$class"
    } else {
        set class [string tolower $class ]
    }
    return $class
}
proc getConfigOptions { w } {
    set configure [ $w configure ]
    set options {}
    foreach f $configure {
        if { [llength $f ] < 3 } { continue; } 
        set name    [ lindex $f 0 ]
        set default [ lindex $f end-1 ]
        set value   [ lindex $f end ]
        if { $default ne $value } {
            lappend options $name $value 
        }
    }
    return $options
}
proc copyWidget { w  newparent { level 0 } } {
    set type [ getWidgetType $w ]
    set name [ string trimright $newparent.[lindex [split $w "." ] end ] "." ]  
    set retval [ $type $name {*}[ getConfigOptions $w ] ]
    foreach b [ bind $w ] {
        puts "bind $retval $b [subst { [bind $w $b ] } ] " 
        catch { bind $retval $b  [subst { [bind $w $b ] } ] } 
    } 
    if { $level > 0 } {
        if { [ catch { pack info $w } err ] == 0 } {
            array set temp [ pack info $w ]
            array unset temp -in
            catch { pack $name {*}[array get temp ] } 
        } elseif { [ catch { grid info $w } err ] == 0 } {
            array set temp [ grid info $w ]
            array unset temp -in
            catch { grid $name {*}[array get temp ] } 
        }
    }
    incr level 
    if { [ pack slaves $w ] ne "" } { 
        foreach f [ pack slaves $w ] {
            copyWidget $f $name $level
        }
    } else {
        foreach f [winfo children $w ] {
            copyWidget $f $name $level
        }
    }
    return $retval
}
proc moveWidget { w newparent } {
    set retval [ copyWidget $w $newparent ]
    destroy $w
    return $retval
}

# assume we have already created a toplevel with complex layout named
# .input with subframe .input.frame.tframe that we want to transfer to
# a new toplevel .x .  There is a cancel button we want to transfer
# also at .input.frame.bframe.icancel and we will grid it into
# .x.tframe .

toplevel .x
set form [ moveWidget .input.frame.tframe .x ]
set cancel [ moveWidget .input.frame.bframe.icancel .x.tframe ]
grid $cancel -row 2 -column 2 -sticky new 
pack $form -anchor center -expand 1 -fill both -side top

Fredrik Lundh(Tkinter作者)的一个old post表明不可能更改小部件的父级。在

相关问题 更多 >