Systray - movendo o iniciar

Top  Previous  Next

// Well, Start A New Project, And Give The Form The Next Properties 

 

Align = top; 

width = screen.width; 

 

// and then, OnMouseMove exent place the following code .... 

 

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); 

var 

  p: tpoint; 

begin 

  getcursorpos(p); 

  movewindow(FindWindowEx(FindWindow('Shell_TrayWnd',  nil),  0'Button', nil),x,y,25,25,true); 

end

 

// Run your application, when moving your mouse on your form, you will 

// notice that the start button is minimized and is moving along with your 

// mouse, with some more work, you can make this invisible to make the statr 

// button move on a pre-schedueled event !! 

 

// Some More Information.... 

 

// If you do the following, you wil start to smile of what will happen on your desktop 

 

// ESTE É PARA BARRA DE TAREFAS

 

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); 

var 

  p: tpoint; 

begin 

  getcursorpos(p); 

  movewindow(FindWindowEx(FindWindow('Shell_TrayWnd',  nil),  0'ReBarWindow32', nil),x,y,25,25,true); 

end

 

http://www.opilki.net/