Mausklick auf einen geteilten button auslösen.

[gibb]

Hi,

Ich hab folgendes Problem. Da meine zwei anderen themen nicht gefruchtet haben und ich leider immer noch keine lösung für mein problem habe resp. nur eine teillösung versuche ich etwas neues und stehe gleich wieder vor einem Problem.

Speedfan hat ja die felder mit den Fanspeeds (unterer roter kreis), Daneben gleich zwei buttons die auch einzeln reagieren. einmal hoch und einmal runter.
http://gallery.weyland.be/d/4233-1/speedfan1b.jpg

Jetzt ist mein plan mit sendmessega einen neuen wert in das Feld zu schreiben und anschliessend einmal den hoch pfeil und einmal den runterpfeil zu betätigen damit speedfan realisiert das sich der wert geänder hatte. Das Changeevent auszulösen reicht leider nicht. Und tastatureingaben verursachen probleme mit ctrl/Shift und '^'.

Problem:
[img=http://www.abload.de/thumb/winspy6a4u.png]

Die Buttons sind vom handle her nur ein Button, wie mache ich also einen klick in den Button spezifischen teil? also oben links oder unten rechts?

Der code der winspy generiert:

Delphi-Quellcode:

var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('TForm1','SpeedFan 4.37');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'TPageControl', nil);
    wndChild := FindWindowEx2(wndChild,'TTabSheet', 5);
    wndChild := FindWindowEx2(wndChild,'TRxSpinEdit', 6);
    wndChild := FindWindowEx(wndChild, 0, 'TWinControl', nil);
    if wndChild <> 0 then
    begin
      ShowMessage('Window Handle: ' + IntToStr(wndChild));
      FlashControl(wndChild); // internal function
    end;
  end;

Gruss gibb

[s.h.a.r.k]

Kannst du nicht evtl. alle Nachrichten abfangen und schauen, was für eine geschickt wird, wenn du auf den Button im Speedfan klickst? 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?

[idefix2]

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

[gibb]

Zitat von s.h.a.r.k:

Kannst du nicht evtl. alle Nachrichten abfangen und schauen, was für eine geschickt wird, wenn du auf den Button im Speedfan klickst? 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?

Wie meinst du das und womit sollte ich das tracen können? Bin da absolut nicht der hirsch

[gibb]

Hab ne lösung, das mit den pfeilen scheint zu klappen, die reagieren auch nicht auf ctrl/shift/^

danke für eure hilfe.

Gruss Sev

[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?