µ±Ç°Î»Ö㺱à³ÌÎĵµ >> DELPHI >> DelphiÖÐΪTreeViewÌí¼Óµ¥Ñ¡ºÍ¸´Ñ¡¿ò

ËùÊôÀà±ð£ºDELPHI
ÍƼöÖ¸Êý£º¡ï¡ï¡ï¡î
ÎĵµÈËÆø£º185
±¾ÖÜÈËÆø£º2
·¢²¼ÈÕÆÚ£º2008-4-17

ÏÂÃæµÄ´úÂë¿ÉÒÔÈÃTreeviewÇ°ÃæÏÔʾCheckBox.

const
TVS_CHECKBOXES = $00000100;

procedure SetComCtrlStyle(WinCtrl: TWinControl; Value: Integer; UseStyle: Boolean);
var
Style: Integer;
begin
  if WinCtrl.HandleAllocated then
  begin
    Style := GetWindowLong(WinCtrl.Handle, GWL_STYLE);
    if not UseStyle then
    Style := Style and not Value
    else Style := Style or Value;
    SetWindowLong(WinCtrl.Handle, GWL_STYLE, Style);
  end;
end;

 

È»ºó ÔÚ OnCreate µ÷Óãº

SetComCtrlStyle(TreeView1, TVS_CHECKBOXES, True);
 

 

»òÕ߸ɴà¼òµ¥µã£¬Ò»¾ä»°ÍêÊ£º

SetWindowLong(TreeView1.Handle, GWL_STYLE, GetWindowLong(TreeView1.Handle, GWL_STYLE) or $00000100);