procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.TransparentColorValue := clSilver;
Form1.transparentcolor := true;
Form1.Color := clSilver;
//Form1.Brush.Style := bsClear;
Form1.BorderStyle := bsNone;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if HiWord(GetAsyncKeyState(VK_LBUTTON)) > 0 then
begin
Form1.Left := Form1.Left + X - X1;
Form1.Top := Form1.Top + Y - Y1;
end;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
X1 := X;
Y1 := Y;
end;
