I'm sorry, I kind of messed up you post there as I wanted to quote you, but instead I hit the edit button. I was able to save most of it, but the sentence with your system specs got lost.
Originally Posted by
spyke00
store i know but check where i clicked... thats the problem =/
Hopefully I can make it up by giving you a solution
Code:
type TMyMouse = record
x : word;
y : word;
clickX : word;
clickY : word;
button : TMouseButton;
pressed : boolean;
end;
var
Form1: TForm1;
myMouse : TMyMouse;
implementation
{$R *.dfm}
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
form1.DXDraw1.surface.fill(0);
if myMouse.pressed then
case myMouse.button of
mbRight : form1.DXDraw1.Surface.Canvas.TextOut(10,50, 'Right Mouse button clicked at '+inttostr(myMouse.clickX)+', '+inttostr(myMouse.clickY));
mbLeft : form1.DXDraw1.Surface.Canvas.TextOut(10,50, 'Left Mouse button clicked at '+inttostr(myMouse.clickX)+', '+inttostr(myMouse.clickY));
mbMiddle : form1.DXDraw1.Surface.Canvas.TextOut(10,50, 'Middle Mouse button clicked at '+inttostr(myMouse.clickX)+', '+inttostr(myMouse.clickY));
end;
form1.DXDraw1.Surface.Canvas.TextOut(10,10, inttostr(myMouse.X)+', '+inttostr(myMouse.Y));
form1.DXDraw1.Surface.Canvas.release;
form1.DXDraw1.Flip
end;
procedure TForm1.DXDraw1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
myMouse.button := Button;
myMouse.clickX := x;
myMouse.clickY := y;
myMouse.pressed := true;
end;
procedure TForm1.DXDraw1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
myMouse.x := x;
myMouse.y := y;
end;
procedure TForm1.DXDraw1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
myMouse.pressed := false;
end;
end.
Bookmarks