Just nu i M3-nätverket
Jump to content

Utanför fönster...


Mikey

Recommended Posts

I delphi så kan man använda kommandon som OnMouseOver eller OnKeyDown. Fast det är bara ett problem, dessa kommandon fungerar bara så länge som man har delphi programmet aktivt och inte annars. Har man en händerse på OnMouseMove så fungerar den bara så långe man flyttar musen över fönstret inte utanför. Hur ska jag göra om jag vill att det ska fungera då också?

 

tack i förhand

 

/Mikey

Link to comment
Share on other sites

Använd en TTimer och skriv följande i hädelsen OnTimer.

Glöm inte att sätta intervallet på något lämpligt.

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

Apoint: Tpoint;

begin

GetCursorPos(Apoint);

Label1.Caption := IntToStr(Apoint.x);

Label2.Caption := IntToStr(Apoint.y);

end;

 

Detta är en lite lite fusk/enkel lösning men de andra löningarna är ganska krångliga.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...