Prog-Startart: Per Mouse-Click oder Enter-Key?

[r29d43]

na ja, wenn ich mit Mausklick gestartet bin, dann greif ich danach eigentlich sowieso nicht mehr groß zur Tastatur. Dann ist es eh irgendwie egal, wo der Focus sitzt.

Das sollte auch nur so eine kleine Hilfe für Handhold-PCs sein, wo man ja oft keine Maus zur Verfügung hat, und wo die Mausbewegung immer so ein bisschen umständlich ist. Nach dem Starten des Progs und dem Aufbau der zweiten Anzeige wäre der Focus dann ja auch sowieso wieder zur dieser auch sonst normalen (Haupt-)Button zurückgewandert.

Aber event. generiere ich für diese zweite Anzeige auch nochmal einen extra Hotkey, das wäre imo auch noch ok.

[hathor]

Ich verstehe nicht, warum man daraus ein "Problem" macht!

Der Focus kann doch IMMER beim Programmstart auf dem Button sein, der mit dem ENTER-Key das OnClick-Ereignis verarbeiten soll.
Bei der Mouse- oder Touch-Bedienung ist es doch wurscht, wo der Focus beim Programmstart ist!

[r29d43]

Dieses anfängliche Anzeigen (gewisser Infos) ist da eher nur eine kleine Sache, die zwar ganz nützlich ist, aber eben nicht die Hauptsache des Progs (wie ja schon gesagt). Ich will halt nicht, dass bei einem normalen Prog-Start per Maus der Focus dann auf einer Button sitzt die irgendwo am äußeren Rand platziert ist, sondern dann sollte der schon mehr zentral auf dem Button der Hauptfunktion sitzen.

[hathor]

Man kann indirekt herausfinden, ob das Programm mit der Maus oder der Tastatur gestartet worden ist:

Beim Programmstart GetCursorPos-Function(Windows) im Abstand von wenigen Sekunden 2 x aufrufen.
Bei Ungleichheit wurde die Maus zum Starten benutzt...

Zitat:
Ich will halt nicht, dass bei einem normalen Prog-Start per Maus der Focus dann auf einer Button sitzt die irgendwo am äußeren Rand platziert ist, sondern dann sollte der schon mehr zentral auf dem Button der Hauptfunktion sitzen.

Ach, jetzt verstehe ich erst, was Du willst!!!

Delphi-Quellcode:

procedure MoveMouseIntoControl(AWinControl: TControl);
var rtControl: TRect;
begin
  rtControl := AWinControl.BoundsRect;
  MapWindowPoints(AWinControl.Parent.Handle, 0, rtControl, 2);
  SetCursorPos(rtControl.Left + (rtControl.Right - rtControl.Left) div 2,
    rtControl.Top + (rtControl.Bottom - rtControl.Top) div 2);
end;


Aufruf-Beispiel:
MoveMouseIntoControl(Button1);

[r29d43]

Zitat von hathor:

Beim Programmstart GetCursorPos-Function(Windows) im Abstand von wenigen Sekunden 2 x aufrufen.
Bei Ungleichheit wurde die Maus zum Starten benutzt...

zur Not, ja!
thx,

Aber den Code brauche ich nicht, denn wenn ich per Maus starte, dann wisch ich den Mauszeiger natürlich per Hand selbst in quasi 1/10tel Sekunde auf diesen Button.