Maus an Position x positionieren

[Zidane]

Hallo,

ich möchte die Maus beim Start der Anwendung an einer bestimmten Stelle positionieren.

Kann man dies irgendwie durch x und y Variablen ermöglichen und muss man zB die Formblattbreite und -höhe berücksichtigen?

Danke und viele Grüße,

Zidane

[Matze]

Hi,

Bildschirmweit geht es mit SetCursorPos.

Edit: Ich hoffe du meinst den Cursor. Die Maus kann man glaube ich ohne weiteres nicht per Software verschieben. :stupid:

[lizardking]

Zitat:

Zitat von Matze

Edit: Ich hoffe du meinst den Cursor. Die Maus kann man glaube ich ohne weiteres nicht per Software verschieben. :stupid:

Das wird bewusst verhindert, weil es ein Sicherheitsrisiko darstellen wuerde. Wie leicht waere es sonst, sowas zu machen :

Delphi-Quellcode:

  Mouse.PhysicalPos := MeimChefSeineKaffeeTasse.Pos;

;-)

[gfjs]

OT :-D

@ lizardking

Zitat:

Mouse.PhysicalPos := MeimChefSeineKaffeeTasse.Pos;

Hab's ausprobiert!

Fehlermeldung: unbekannter Bezeichner 'MeimChefSeineKaffeTasse' (bairisch!)

Gruß aus München

Jürgen

[marabu]

Guten Morgen.

So geht es:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
var
  pt: TPoint;
begin
  with DemoButton do
    pt := Point(Left + Width shr 1, Top + Height shr 1);
  Mouse.CursorPos := ClientToScreen(pt);
end;

Grüße vom marabu

[Mackhack]

Für was ist denn dieses Shr gut. Ich sehe das in so vielen Codes hier dass ihr mit dem Shr arbeitet!

[marabu]

Blöde Angewohnheit von mir aus längst vergangenen Assembler-Zeiten. SHR ist der Mnemo-Code für Shift Right und richtig angewandt enstpricht die Verschiebung um 1 Bit nach rechts einer Ganzahldivision durch 2. Aber schau ruhig mal in die Online-Hilfe.

Freundliche Grüße vom marabu

[Muetze1]

shr = shift right.

Binäres bitweises verschieben der Bits nach rechts. Die Bit die rechts rausfallen gehen verloren (im Gegensatz zu rotate right) und links werden die freien Bits mit 0 aufgefüllt.

Shr 1 wäre in diesem Falle ein schnellere ganzzahlige Division durch 2.

shr x => div 2^x

Aber nur bei ganzzahligen Werten.

/EDIT: trotz rotem Kasten gepostet, da etwas ausführlicher

[Mackhack]

Danke euch beiden! Hab zwar in der hlp schonmal nachgesehen, dass es aber einer Ganzzahldivision durch 2 gleichkommt wusste ich nicht - jetzt schon!

[Luckie]

Und noch zur Ergänzung: Die Shift Operatioenen sind performanter als die Multiplikationen oder Divisionen, weil ja eigentlich gar nicht gerechnet wird. ;)