Cursorposition im Integerwert speichern

[malo]

Ich möchte die Position des Cursors in einem Integerwert speichern.

Da hab ich an folgenden Code gedacht:

Delphi-Quellcode:

var
  Position: integer;

...

procedure TForm1.MausTimeTimer(Sender: TObject);
var Posi: TPoint;
begin
  Posi := Mouse.CursorPos;
  Position := IntToStr(StrToInt(Posi.X));
end;

Doch da kommt dann immer die Fehlermeldung "inkompatible Typen: 'String' und 'Integer'

hat jemand vielleicht 'ne andere Idee, wie ich die Cursorposition in einem Integerwert speichern kann?

[freak4fun]

Position := Posi.X;

mfg
freak

[malo]

Zitat von freak4fun:

Position := Posi.X;

mfg
freak

Da hatte ich schon dran gedacht, aber dann kommt die Fehlermeldung "inkompatible Typen: TPosition und Integer"

[Christian Seehase]

Moin malo,

Posi.x ist ja bereits eine Zahl, was willst Du da konvertieren?

Du müsstest nur ein wenig "schieben", damit Du beide Werte (x und y) in einer Variablen unterbringen kannst.

Position := (posi.x shl 16) or (posi.y); Hierdurch wird der horizontale Wert in den oberen 16 Bit von Position gespeichert, die vertikale in den unteren.

[malo]

@Chris: Ich will aber halt nur den X-Wert speichern, den Y-Wert brauch ich nicht

Das Problem dabei ist aber ein Post weiter oben

[Christian Seehase]

Moin malo,

Zitat von malo:

...aber dann kommt die Fehlermeldung "inkompatible Typen: TPosition und Integer

Position ist eine Eigenschaft von TForm.
Nenn es doch iPosition.

[EDIT]
Oder besser: Pack es als Eigenschaft in das Formular

Delphi-Quellcode:

TForm1 = class(TForm)
//...
private
  FiPosition : integer;
public
  property MyPosition : integer read FiPosition write FiPosition;
end;

//...


MyPosition := Posi.x;

//...

[freak4fun]

Wieso denn TPosition es gibt doch nur TPoint und Integer?!

mfg
freak

[malo]

Zitat von Christian Seehase:

Moin malo,

Zitat von malo:

...aber dann kommt die Fehlermeldung "inkompatible Typen: TPosition und Integer

Position ist eine Eigenschaft von TForm.
Nenn es doch iPosition.

Ah, danke, wusst ich nicht!

[Christian Seehase]

Moin Christian,

Zitat von freak4fun:

Wieso denn TPosition es gibt doch nur TPoint und Integer?!

mfg
freak

Dann schau mal im Objekt-Inspektor in den Eigenschaften eines Formulares.