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