Не запускается действие MouseMove при прозрачной форме...

[Ckomoroh]

Я решил сделать такую программу - по экрану за мышкой должна гоняться картинка.

Я сделал чтобы картинка гонялась по форме, но когда сделал прозрачность формы через TransporantColor, картинка перестала двигаться...

Подскажите в чем ошибка, или подскажите как сделать иначе...

Код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    v,vx,vy:integer;{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  image1.Top:=image1.Top+vy;
  image1.Left:=image1.Left+vx;
  v:=v-1;
  if v<1 then timer1.Enabled:=false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  v:=30;
  vx:=(x-image1.Left) div v;
  vy:=(y-image1.Top) div v;
  timer1.Enabled:=true;
end;

end.

Заранее спасибо.

[raxp]

"гоняйте" за мышкой не картинку, а саму форму... с регионами работали?

[Ckomoroh]

Хм, нет...
Подскажите что это, пожалуйста...

[raxp]

обрезаете форму по картинке (через >>> регионы <<<), добавляете таймер, в таймере считываете позицию курсора мыши и делате привязку формы к курсору.

функции для создания

[Ckomoroh]

А можно исходник пожалуйста, или пример, а то я вообще не понял как сделать с регионами...

И еще координаты курсора в какой процедуре получать?

[raxp]

И еще координаты курсора в какой процедуре получать?

getcursorpos() по таймеру например

А можно исходник пожалуйста, или пример, а то я вообще не понял как сделать с регионами...

читаем help и смотрим как:

//=================== создаем
function Tltf.BitmapToRegion(Bitmap: TBitmap; TransColor: TColor): HRGN;
var X, Y: Integer;
    XStart: Integer;
    temp:HRGN;
begin
 Result:= 0;
 with Bitmap do
  for Y:= 0 to Height - 1 do begin
   application.ProcessMessages;
   X:= 0;
   while X < Width do begin
    while (X < Width) and (Canvas.Pixels[X, Y] = TransColor) do
     Inc(X);
    if X >= Width then Break;
    XStart:= X;
    while (X < Width) and (Canvas.Pixels[X, Y] <> TransColor) do
     Inc(X);
    if Result = 0 then Result:= CreateRectRgn(XStart, Y, X, Y + 1)
     else temp:= CreateRectRgn(XStart, Y, X, Y + 1);
    CombineRgn(Result, Result,temp, RGN_OR);
    DeleteObject(Temp);
   end;
  end
end;

procedure Tltf.rgn(cb:Tcolor);
var mRgn: HRGN;
begin
 mRgn:= BitmapToRegion(img.Picture.Bitmap,cb); // картинку берем из image
 SetWindowRgn(Handle, mRgn, True);
 DeleteObject(mRgn)
end;
//===================

//использование
procedure Tltf.FormCreate(Sender: TObject);
begin
  SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or not WS_EX_APPWINDOW);

 rgn(clwhite);

[uberchel]

Ну а лучше что бы не грузить по таймеру, ловить сообщения передвижения курсора!

[Ckomoroh]

Спасибо всем, за советы, все получилось...только не понял зачем обрезать форму, если можно ее уменьшить по размерам картинки и отключить края...

[raxp]

только не понял зачем обрезать форму, если можно ее уменьшить по размерам картинки и отключить края...

потому-что выставить форму по размерам картинки и bsnone это само-собой разумеющееся... да, можно просто воспользоваться transparentcolor, но не на всех системах сие "прокатит".

[Ckomoroh]

Еще вопрос...А как сделать тип, и чтобы для этого типа все действия были одинаковыми...
Например,
Программно создается несколько картинок, например, img1,img2,img3, а потом для этих картинок задается один и тот же рисунок и одни и те же действия, чтобы не писать событие для каждой картинки?