xcex2012:请问怎么实现拖拽阴影移动安装窗口
.......
(2015-10-03 18:23)
只要修改下面红色部分就行了。
procedure WizardFormMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
WizardForm.Show; if IsFrameDragging then
begin
WizardForm.Left := WizardForm.Left + X - dx;
WizardForm.Top := WizardForm.Top + Y - dy;
Frame.Left := WizardForm.Left - 50;
Frame.Top := WizardForm.Top - 50;
end;
end;
procedure CreateFrame;
begin
IsFrameDragging := false;
Frame := TForm.Create(nil);;
Frame.BorderStyle := bsNone;
CreateFormFromImage(Frame.Handle, ExpandConstant('{tmp}\WizardFormShadow.png'));
with TLabel.Create(Frame) do
begin
Parent := Frame;
AutoSize := false;
Left := 0;
Top := 0;
Width := Frame.ClientWidth;
Height := Frame.ClientHeight;
OnMouseUp := @WizardFormMouseUp; OnMouseDown := @WizardFormMouseDown; OnMouseMove := @WizardFormMouseMove; end;
WizardForm.Left := Frame.Left + 50;
WizardForm.Top := Frame.Top + 50;
Frame.Show;
end;