1.在OnMouseDown事件中写代码:
if Sender is TWinControl then
begin
ReleaseCapture;
(Sender as TWinControl).Perform(WM_SYSCOMMAND, $f012, 0);
end;2.不会.3.1
TreeView1.Selected.AbsoluteIndex;3.2
with TreeView1.Selected do
if getFirstChild <> nil then
begin
if AbsoluteIndex mod 2 = 1 then
ImageIndex := 1
else
ImageIndex := 2;
end;
if Sender is TWinControl then
begin
ReleaseCapture;
(Sender as TWinControl).Perform(WM_SYSCOMMAND, $f012, 0);
end;2.不会.3.1
TreeView1.Selected.AbsoluteIndex;3.2
with TreeView1.Selected do
if getFirstChild <> nil then
begin
if AbsoluteIndex mod 2 = 1 then
ImageIndex := 1
else
ImageIndex := 2;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货