Pytanie : Guzik w inny zastosowanie

Dobry dzień wszystko:)

I am guzik klikać dalej inny podaniowy forma, I obliczać ono podaniowy oprócz jeden mały snag.

As the drugi zastosowanie być kopalniany i I mieć the źródło dla ono, the dołączać kod praca. Gdy I wysyłać "ControlCaption" gdy pusty sznurek, ono pracować - I rozumieć dlaczego ale dlaczego wokoło ono. I woleć niepotrzebny modyfikacja the drugi zastosowanie.

My pytanie: Dlaczego I guzik stuknięcie TSpeedButton che a) mieć żadny rękojeść i B) mieć żadny podpis/tekst tylko wizerunek?

Kind Regards 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

Procedure ClickButton (WindowName, WindowCaption,
  ControlName, ControlCaption: Sznurek);
Var
  hParent, hControl: HWND;
Zaczynać
  hParent: = (0);
  hControl: = (0);

  hParent: = FindWindow (pChar (WindowName), pChar (WindowCaption));

  Próba
    BringWindowToTop (hParent);
    Application.ProcessMessages;

    hControl: = FindWindowEx (hParent, (0), pChar (ControlName),
      pChar (ControlCaption));

    Próba
      SendMessage (hControl, BM_CLICK, 0,0);
    W końcu
      hControl: = (0);
    Końcówka;
  W końcu
    hParent: = (0);
  Końcówka;
Końcówka;

// WindowName: The imię the forma (eg.: TForm1)
// WindowCaption: The podpis the forma (eg.: Form1)
// ControlName: The imię the kontrola (eg.: TButton)
// ControlCaption: The tekst/podpis the kontrola (eg.: Ok)

Procedura Button2Click (Nadawca: TObject);
Zaczynać
  ClickButton ("TForm1", "Form1", "TSpeedbutton", '');
Końcówka;

Odpowiedź : Guzik w inny zastosowanie

ty móc dalej guzik który mieć żadny nadokienny rękojeść ten metoda.

Twój jedyny rozwiązanie być mysz klikać dalej the forma, the coordinate the guzik

Także, I widzieć the potrzeba twój rękojeść (0) (0) używać.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Procedura ClickSomewhere (WindowName, WindowCaption: PChar; X, Y: Integer);
Var
  hParent: HWND;
Zaczynać
 hParent: = FindWindow (WindowName, WindowCaption);
 jeżeli hParent0<> Wtedy
  Zaczynać
   BringWindowToTop (hParent);
   Application.ProcessMessages; // pewny że być pożytecznie
   SendMessage (hParent, BM_CLICK, X, Y);
  Końcówka;
Końcówka;
Inne rozwiązania  
 
programming4us programming4us