Eine komponente einer anderen Applikation anektieren

[rollstuhlfahrer]

du kannst dem Steuerelement auch per RedrawWindow sagen, dass es sich neu zu zeichnen hat.

Bernhard

[gibb]

Kann ich ihm auch mitteilen das sich der inhalt geändert hat?

Also sozusagen ein change event ausläsen ? die andere applikation erkennt nämlich nicht das der text sich geändert hat.

ein change event würde sicherlich auch ein repaint auslösen.

gruss gibb

[gibb]

Delphi-Quellcode:

      SendMessage(hwndControl,WM_SETTEXT,0,(Integer(PChar(strNewSpeed))));
      SendMessage(hwndControl,WM_SETREDRAW,1,0);
      RedrawWindow(HWNDControl, nil, 0, 0);
      PostMessage(HWNDControl, WM_KEYDOWN, VK_BACK,0); // backspace taste runter
      PostMessage(HWNDControl, WM_KEYUP , VK_BACK,  $C0000000); // backspace taste rauf   }

Hey, ich hab jetzt folgendes Implementiert, das ganze wird bei mir gut dargestellt und auch sonst sieht alles jut aus. ABER Speedfan erkennt nicht das sich der wert geändert hat im Textfeld. Was soviel bedeutet wie Speedfan steuert nicht anhand der Zahlen die ich übergebe.

Desshalb habe ich auch noch den Backspace gesendet, in der Hoffnung das dann das TSpinEdit Feld realisiert das es intern was abzuarbeiten hat. Leider hat der Backspace nicht funktioniert. Daher meine Frage, wie kann ich dem Edit mitteilen das es interne Prozeduren/Events auslösen muss genau gleich als hätte ich von hand etwas reingetippt?

Gruss gibb

[freak4fun]

Vielleicht mal mit Enter versuchen?

[gibb]

ja währ ne idee, aber ich denke nicht das das hilft. sonst ist ja auch kein enter notwendig. Die reine eingabe der zahlen bewürken wohl über die entpsrechenden events bereits das sich das Programm aktualisiert.

[gibb]

Also, das mit dem Enter funktioniert auch nicht. gibt es ne möglichkeit changeevent oder andere solche events anzustossen?

Gruss Sev

[David Martens]

versuch doch mal

SendMessage(hwndControl,EN_CHANGE,0,0); Kommt von hier:

Delphi-Quellcode:

unit Messages;
...
{ Edit Control Notification Codes }

const
  {$EXTERNALSYM EN_SETFOCUS}
  EN_SETFOCUS  = $0100;
  {$EXTERNALSYM EN_KILLFOCUS}
  EN_KILLFOCUS = $0200;
  {$EXTERNALSYM EN_CHANGE}
  EN_CHANGE    = $0300;
  {$EXTERNALSYM EN_UPDATE}
  EN_UPDATE    = $0400;
  {$EXTERNALSYM EN_ERRSPACE}
  EN_ERRSPACE  = $0500;
  {$EXTERNALSYM EN_MAXTEXT}
  EN_MAXTEXT   = $0501;
  {$EXTERNALSYM EN_HSCROLL}
  EN_HSCROLL   = $0601;
  {$EXTERNALSYM EN_VSCROLL}
  EN_VSCROLL   = $0602;
...