设置个全局变量。
var ColumnChange : Boolean;有个ColumnDragged事件,自己在里面写。procedure TForm1.ListViewColumnDragged(Sender: TObject);
begin
ColumnChange := True;
end;
var ColumnChange : Boolean;有个ColumnDragged事件,自己在里面写。procedure TForm1.ListViewColumnDragged(Sender: TObject);
begin
ColumnChange := True;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货