Mausklick auf einen geteilten button auslösen.

[Peter1999]

Da das keine echten 2 Buttons (mit eigenem Handle) sind, sondern "nur" selbst gemalte Bildchen, wird wahrscheinlich nur die Mausposition abgefragt, wenn das OnClick des gesamten SpinEdits ausgelöst wird. Damit hast du dort nur eine Chance, wenn du den Mauszeiger wirklich bewegst. Das wird aber hässlich aussehen, oder du musst den Mauszeiger vorher verstecken.
Du kannst dir doch mal den Quelltext des RxSpinedit ansehen, das ist doch Open Source (oder?).

Einfacher ist aber wahrscheinlich wirklich zu testen, ob nicht mit einem Klick ins Edit und einem Tastendruck (Keydown oder Keyup) der Tab-Taste (oder Return?) zum Verlassen vielleicht das OnExit des Spinedits anspringt und dann die Werte übernimmt??? Das muss man aber probieren.

Viel Erfolg!

[SirThornberry]

Wenn ich mir den Quelltext im ersten Beitrag ansehe glaube ich kaum das er so funktionieren kann. Denn dort wird nach TWinControl gesucht und es ist mir noch NIE untergekommen das jemand direkt ein TWinControl auf seinem Formular platziert.
Grund ist das ein TWinControl eigentlich nichts anderes macht als da zu sein. Deswegen leitet man höchstens davon ab und hat dann eine neue Klasse die ein Nachfahre von TWinControl ist. Aber dieses findet man dann nicht mehr wenn man nach TWinControl sucht.
Das nächste ist folgender Konstruct:

Delphi-Quellcode:

wndChild := FindWindowEx(wndMain, 0, 'TPageControl', nil);
wndChild := FindWindowEx2(wndChild,'TTabSheet', 5);
wndChild := FindWindowEx2(wndChild,'TRxSpinEdit', 6);
wndChild := FindWindowEx(wndChild, 0, 'TWinControl', nil);

Wenn das erste FindWindowEx fehl schlägt (also 0 zurück gibt) macht es keinen Sinn weiter zu suchen. Du würdest dann also 3 mal FindWindowsEx(2) ausführen obwohl bereits klar ist das diese Funktionsaufrufe nichts mehr bringen.

[toms]

@Jens: Der FindWindow Code stimmt schon denn das ShowMessage wird angezeigt und WinSpy findet effektiv das Control.

Da die einzelnen "Buttons" jedoch kein Handle besitzen, wirst du wohl einen anderen Weg gehen müssen.

[Luckie]

Das Programm muss ja irgendwo seine Einstellungen speichern. Kannst du diese nicht direkt setzen in Regestry, das Programm beenden und dann neu starten? Dann müsste es ja die veränderten Werte neu einlesen.

[gibb]

Sorry, ich kapier gerade nicht was du mir mitteilen willst, welches programm? Speedfan oder meins?

[Medium]

Ein weiteres Problem könnte hier werden, dass einige Messages (darunter z.B. WM_LBUTTONDOWN) nur an sichtbare, und ggf. sogar nur aktive Fenster geschickt werden, und das waren so weit die einzigen, die auch Koordinaten in den Params trugen. D.h. sobald das Fenster minimiert oder auch nur überdeckt ist, klappt der gesamte Ansatz schon nicht mehr.

Setzen des Textes in den Controls wäre auch so meine einzige Idee, man muss sie nur irgendwie dazu bekommen das auch zu merken. WM_NOTIFY lässt sich leider nicht zwischen unterschiedlichen Prozessen senden, bei WM_PARENTNOTIFY steht so weit nichts von dieser Einschränkung, wenn ich mich nicht verlesen habe. Vielleicht lässt sich damit noch was anstellen.

Wenn das auch nichts wird, sehe ich auch eher sehr schwarz. Im Zweifel kann man halt immer noch den Autor anschreiben, ihn auf die Probleme mit seinem Programm hinweisen, und um Korrektur bitten, bzw. seine Mithilfe bei selbiger anbieten - scheint ja ohnehin ein Delphi-Programm zu sein, also perfekt. Um ehrlich zu sein, wäre das sogar mein aller erster Ansatz gewesen, nicht zuletzt weil es den meisten Entwicklern schon am Herzen liegt ein gutes Programm zu schreiben, und auf derartige Feedbacks angewiesen sind. Von einem externen Hack wird das Programm selber nicht besser, und der Autor merkt nichts davon.

[gibb]

@medium, den Autor des anderen Programm habe ich bereits mehrfach über verschiedene wege angeschrieben. Er scheint jedoch kein interesse daran zu haben zu antworten. Ich habe ihm auch angeboten ihm meinen code für die steuerung zur verfügung zu stellen damit er diesen implementieren kann. er hätte nur die control unit anpassen müssen.
Dieser weg ist auch tot.

Also ich hatte bisher keine Probleme mit dem senden der keys abgesehen das was im thema explizites tasten event auslösen beschrieben ist.

zurzeit sieht die funktion die die keys versendet so aus:

Delphi-Quellcode:

  HWNDControl:= getControlHandle(AFan.ControleNumber);
 // HWNDControl:= DebugHandle();
  if (Afan.NewSpeed) <> -1 then begin
    if HWNDControl <> 0 then begin
 //     sleep(3000);
    {  PostMessage(HWNDControl, WM_KEYDOWN, VK_DELETE,0); // Delete taste runter
      PostMessage(HWNDControl, WM_KEYUP , VK_DELETE, $C0000000); // Delete taste rauf
      PostMessage(HWNDControl, WM_KEYDOWN, VK_DELETE,0); // Delete taste runter
      PostMessage(HWNDControl, WM_KEYUP , VK_DELETE,  $C0000000); // Delete taste rauf
      PostMessage(HWNDControl, WM_KEYDOWN, VK_DELETE,0); // Delete taste runter
      PostMessage(HWNDControl, WM_KEYUP , VK_DELETE,  $C0000000); // Delete taste rauf
      PostMessage(HWNDControl, WM_KEYDOWN, VK_BACK,0); // backspace taste runter
      PostMessage(HWNDControl, WM_KEYUP , VK_BACK, $C0000000); // backspace taste rauf
      PostMessage(HWNDControl, WM_KEYDOWN, VK_BACK,0); // backspace taste runter
      PostMessage(HWNDControl, WM_KEYUP , VK_BACK,  $C0000000); // backspace taste rauf
      PostMessage(HWNDControl, WM_KEYDOWN, VK_BACK,0); // backspace taste runter
      PostMessage(HWNDControl, WM_KEYUP , VK_BACK,  $C0000000); // backspace taste rauf   }
      strNewSpeed:= inttostr(AFan.NewSpeed);
//      GPModLog.AddToLog('Speddfancontrole: fan'+ AFan.overlayName + ': ' + strNewSpeed );
      SendMessage(hwndControl,WM_SETTEXT,0,(Integer(PChar(strNewSpeed))));
{        PostMessage(HWNDControl, WM_KEYDOWN, VK_BACK, 0); // Ctrl runter
        PostMessage(HWNDControl, WM_KEYUP , VK_BACK,  $C0000000); //  Taste runter   }
 //       InvalidateRect(HWNDControl,0,false);

        SendMessage(hwndControl,WM_SETREDRAW,1,0);
        RedrawWindow(HWNDControl, nil, 0, 0);
        SendMessage(hwndControl,EN_CHANGE,0,0);
        {PostMessage(HWNDControl, WM_KEYDOWN, VK_RETURN,0); // backspace taste runter
       PostMessage(HWNDControl, WM_KEYUP , VK_RETURN,  $C0000000); // backspace taste rauf   }
    {  For i:= 1 to Length(strNewSpeed) do begin
        wparam:= MapIntToKey(strNewSpeed[i]);
     //   PostMessage(HWNDControl, WM_KEYUP , VK_CONTROL, $20000000);  // ctrl up
     //   PostMessage(HWNDControl, WM_KEYUP , VK_SHIFT, $10000000);  // shift up
    //    ShftGedrueckt := GetKeyState(VK_SHIFT) and 128 = 128; // Shift Status abfragen
    //    CtrlGedrueckt := GetKeyState(VK_CONTROL) and 128 = 128;  // Ich glaub die Taste heisst VK_CTRL
   //     if ShftGedrueckt then
    //      keybd_event (VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
    //    if CtrlGedrueckt then
    //      keybd_event (VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
        PostMessage(HWNDControl, WM_KEYDOWN, wparam, 0); // Ctrl runter
        PostMessage(HWNDControl, WM_KEYUP , wparam,  $C0000000); //  Taste runter
    //    if ShftGedrueckt then keybd_event (VK_CONTROL, 0, 0, 0);
      //  if CtrlGedrueckt then keybd_event (VK_CONTROL, 0, 0, 0);

      end;}
      // sleep(1);
    end;
  end;
end;

die vielen komentare sind verschiedene methoden die versucht wurden. (obwohl nicht mehr alle vorhanden sein dürften) sobald ich eine funktionierende lösung habe verschwinden auch die kommentare

Ich weiss auch das noch überflüssiger code vorhanden ist. aber ich hatte irgendwann keine lust mehr alles immer und immmer wieder umzubauen und habe einfach weitergeschrieben, werde das aber sicherlich noch bereinigen.

gruss Sev

[gibb]

Hier noch die anderen 2 themen:
1. http://www.delphipraxis.net/149760-e...ausloesen.html
2. http://www.delphipraxis.net/151633-e...nektieren.html

Zitat:

Denn dann könntest du das ja so auf diese Art und Weise lösen. Kenne hierbei allerdings die anderen beiden Fragen nicht. Oder was passiert, wenn du Key Events schickst?! Das müsste ja auch eine sofortige Änderung zur Folge haben, oder

Ja die änderung erfolgt, bei meiner applikation handelt es sich aber um eine applikation die im hintergrund mitläuft und speedfan steuert weil die lüftersteuerung nicht so toll implementiert ist. Das problem ist bei einem gedrückten ctrl/shift/^ ertönt ein nerviger bing ton weil das zeichen was bei speedfan eintrift von einer normalen zahl abweicht.

Zitat:

Und warum klappt es eigentlich nicht, wenn Du mit den Tasten schicken wartest, solange shift oder alt oder ctrl gedrückt ist?

Dort ist das Problem dabei das ja dann die steuerung nicht mehr erfolgt wenn lange, durchgehen ctrl/shift/^ gedrückt ist und das im übelsten fall zu einem Hardwareschaden führen kann. Ich kanns dann ja auch nicht mit postmessage senden weil ja nix passiert.

@Peter: Ja das habe ich befürchtet, den mauszeiger zu bewegen kommt nicht in frage da das auch auswirkungen auf andere apps haben kann und das alle 1-x sekunden passieren müsste. Enter hab ich bereits versucht, eine andere option währe es mit den pfeiltasten zu arbeiten. Enter wird glatt ignoriert, macht aber nur noch bing bei ^ und nicht mehr ctrl/shift und die taste ist wohl die wenigst genützte. Ev verhalten sich die pfeiltasten gleich wie enter, führen aber zu einer aktualisierung des Fanspeeds (hab ich manuell getestet).

@SirThornberry
Ja das ist verständlich, der source den ich gepostet habe ist sowieso noch nicht implementiert sondern einfach der auszug von winspy. Schade, schade, schade...

Tja mir gehen langsam die ideen aus, bis das mit den pfeiltasten, sonst noch jemand eine gute idee?

Gruss Sev