[Duvida] ListBox + Mouse

[Kimoszin]

Ola pessoal,

Eu tenho um listbox, que adiciona as coordenadas do mouse dividas por , (virgula), bom eu queria saber como eu faço o delphi identificar qual é a pos x e a pos y, para usar a função SetCursorPos()

obrigado

[Jhonas]

Eu tenho um listbox, que adiciona as coordenadas do mouse dividas por , (virgula), bom eu queria saber como eu faço o delphi identificar qual é a pos x e a pos y, para usar a função SetCursorPos()

muito simples ...

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

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

end;

como voce pode observar, existem 3 eventos do mouse onde voce tem a posição do X e do Y do mouse

então o valor da posição X vem primeiro e do Y depois

exemplo: SetCursorPos(x,y);

abraço

[Kimoszin]

Sim, mais tipo

O listbox tem as coordenadas 400,330

Como o SetCursorPos vai saber qual é qual ?

[Jhonas]

exemplo: SetCursorPos(x,y);

veja esse exemplo

coloque um ListBox em um canto form e coloque o código no evento OnMouseUp do form

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ListBox1.Items.Append(inttostr(x)+','+inttostr(y));
   Form1.Canvas.Font.Color := clBlue;
   Form1.Canvas.Rectangle(x,y,x+3,y+3);
end;

end.

veja que no listbox vai sendo armazenado as posições de coordenadas X e Y do mouse, quando voce clica numa area do form

ao mesmo tempo vai sendo marcada essas posições no form

abraço

[Kimoszin]

Cara, eu já fiz todo o processo

Ele esta adicionanando as coordenadas do mouse, só que eu quero saber como ele faz pra entender

Que antes da virgula é X e depois da virgula é Y

[Jhonas]

procedure TForm1.ListBox1Click(Sender: TObject);
var x , y : integer; s : string;
begin
   s := Listbox1.Items.Strings[listBox1.ItemIndex];
   x := strtoint(copy(s,1,pos(',',s)-1));
   delete(s,1,pos(',',s));
   y := strtoint(trim(copy(s,1,3)));

   SetCursorPos(x,y);
end;

abraço

[Kimoszin]

procedure TForm1.ListBox1Click(Sender: TObject);
var x , y : integer; s : string;
begin
   s := Listbox1.Items.Strings[listBox1.ItemIndex];
   x := strtoint(copy(s,1,pos(',',s)-1));
   delete(s,1,pos(',',s));
   y := strtoint(trim(copy(s,1,3)));

   SetCursorPos(x,y);
end;

abraço

Cara, quando fui compilar e executar a função retornou o seguinte erro:

First chance exception at $7C812AFB. Exception class EStringListError with message 'List index out of bounds (-1)'. Process fishing.exe (852)

Abraços

[Jhonas]

confira o seu código com este ... veja principalmente a uses

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ListBox1.Items.Append(inttostr(x)+','+inttostr(y));
   Form1.Canvas.Font.Color := clBlue;
   Form1.Canvas.Rectangle(x,y,x+3,y+3);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var x , y : integer; s : string;
begin
   s := Listbox1.Items.Strings[listBox1.ItemIndex];
   x := strtoint(copy(s,1,pos(',',s)-1));
   delete(s,1,pos(',',s));
   y := strtoint(trim(copy(s,1,3)));

   SetCursorPos(x,y);

end;

end.

se voce estiver compilando no delphi 5 tire a uses Variants

abraço