Exemplo de olhar para cima e para baixo (será verdade)...

Registrado: 09/12/14 Mensagens: 74 Localização: Rio de janeiro

Olá. Eu trago boas noticias estou quase resolvendo o problema de olhar para cima e para baixo. Confiram o link abaixo... (na verdade é muito fácil programar isso)...

http://www.4shared.com/file/PVtgg08Uce/exemplo_legal_de_olhar_para_ci.html?

Agora a unica coisa que falta para resolver isso é o mouse acompanhar a câmera e o ator.
Eu jah fiz vários avanços nessa parte, mas tipo éh muito complicado para mim.

Eu consegui um Script para limitar a região de movimentação do mouse

Código:

{ Coloque um botão no form e altera o evento OnClick dele
conforme abaixo: }

procedure TForm1.Button1Click(Sender: TObject);
var
R: TRect;
begin
{ Pega o retângulo da área cliente do form }
R := GetClientRect;
{ Converte as coordenadas do form em coordenadas da tela }
R.TopLeft := ClientToScreen(R.TopLeft);
R.BottomRight := ClientToScreen(R.BottomRight);
{ Limita a região de movimentação do mouse }
ClipCursor(@R);
ShowMessage('Tente mover o mouse para fora da área cliente do Form');
{ Libera a movimentação }
ClipCursor(nil);
end;

e de como posicionar o controle do mouse em um controle

Código:

{ Digite a procedure abaixo imediatamente após a palavra
implementation no código do seu formulário. }

procedure MouseParaControle(Controle: TControl);
var
IrPara: TPoint;
begin
IrPara.X := Controle.Left + (Controle.Width div 2);
IrPara.Y := Controle.Top + (Controle.Height div 2);
if Controle.Parent <> nil then
IrPara := Controle.Parent.ClientToScreen(IrPara);
SetCursorPos(IrPara.X, IrPara.Y);
end;

{ Para testar, coloque no Form um botão e troque o name dele
para btnOK e modifique o evento OnShow do Form
conforme abaixo: }

procedure TForm1.FormShow(Sender: TObject);
begin
MouseParaControle(btnOk);
end;

Por favor me ajudem se alguém conseguir fazer isso. Não vai estar só me ajudando, mas muitas pessoas.

_________________
RJBK