F�rum Form abrindo na posi��o do mouse #560235

12/08/2016

Pessoal, alguem saberia como fa�o para fazer com que um form abra na "position" do mouse?
Eu tenho um form que exibe dicas espec�ficas de determinados forms da aplica��o. Assim, gostaria que esse form com essas dicas seja exibido onde estiver o mouse.

procedure Tf_cadastrarIP.Image1Click(Sender: TObject);
begin
f_ajuda.Show;
f_ajuda.Label1.Caption:='Clique em novo para cadastrar algum item que n�o esteja na lista.';
end;

[]

Ivo Nascimento

Curtir t�pico

+ 0

Responder

Post mais votado

15/08/2016

Valeu, Amigo. Consegui ajustar. Ficou assim:

procedure TF_AJUDA.FormShow(Sender: TObject);
var
  mousePoint : TPoint;
begin
mousePoint := Mouse.CursorPos;
  f_ajuda.Left    := mousePoint.X;
  f_ajuda.Top     := mousePoint.Y;
end;

Resolvido. Brigado

Ivo Nascimento

Responder

Gostei + 1

Mais Posts

14/08/2016

Augusto Angelim

Tem uma solu��o que funciona bem assim:

procedure TForm1.FormCreate(Sender: TObject);
var
  formNovo : TForm;
  mousePoint : TPoint;
begin
  mousePoint := ScreenToClient(Mouse.CursorPos);
  //
  formNovo      := TForm.Create(Self);
  formNovo.Left := mousePoint.X
  formNovo.Top  := mousePoint.Y;
  formNovo.Show;
  //
end;

Augusto Angelim
www.minhaweb2.com

Responder

Gostei + 0

14/08/2016

Ivo Nascimento

N�o surtiu efeito algum esses c�digo.

Responder

Gostei + 0

15/08/2016

Augusto Angelim

Foi mals... agora vai!
:)

procedure TForm1.FormDblClick(Sender: TObject);
var
  formNovo : TForm;
  mousePoint : TPoint;
begin
  mousePoint := Mouse.CursorPos;
  //
  formNovo         := TForm.Create(Self);
  formNovo.Left    := mousePoint.X;
  formNovo.Top     := mousePoint.Y;
  formNovo.Caption := 'Form: '+IntToStr(formNovo.Left)+'/'+IntToStr(formNovo.Top);
  //
  formNovo.Show;
  //
end;

Responder

Gostei + 0