有如下代码:
procedure TfrmMain.pnlListBoxMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if not bPush then
begin
if (x<0) or (y<0) or (x>pnlListBox.Width) or (y>pnlListBox.Height) then
begin
ReleaseCapture;
pnlListBox.Align:=alNone;
pnlListBox.Top:=PageControl.Height-35;
end else
begin
pnlListBox.Align:=alBottom;
SetCaptureControl(pnlListBox);
Update;
btnSelectAll.SetFocus;
end;
end;
end;
用于实现自动隐藏和显示的浮动工具栏窗口,当panel(用于放置按钮)从隐藏状态—》显示状态时,在panel上单击按钮时没有任何反应,而要再单击一次才能响应,why?
procedure TfrmMain.pnlListBoxMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if not bPush then
begin
if (x<0) or (y<0) or (x>pnlListBox.Width) or (y>pnlListBox.Height) then
begin
ReleaseCapture;
pnlListBox.Align:=alNone;
pnlListBox.Top:=PageControl.Height-35;
end else
begin
pnlListBox.Align:=alBottom;
SetCaptureControl(pnlListBox);
Update;
btnSelectAll.SetFocus;
end;
end;
end;
用于实现自动隐藏和显示的浮动工具栏窗口,当panel(用于放置按钮)从隐藏状态—》显示状态时,在panel上单击按钮时没有任何反应,而要再单击一次才能响应,why?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货