Checkbox checken in anderem Programm

[BloodySmartie]

Hallo liebe Community!

Mir kam heute eine tolle Idee für ein größeres Projekt. Ich bin gerade dabei, ein paar grundlegende Informationen zu sammeln. An sich wird es nicht mal schwer zu implementieren sein. Allerdings gibts da etwas, mit dem ich einfach keine Erfahrung habe: Ich möchte Text in ein Eingabefeld in einem anderen Programm schreiben oder eine Checkbox an/abkreuzen. Ich könnte mir vorstellen, dass das über Messages und die Handles der entsprechenden Steuerelemente geht, aber ich hab keine Ahnung davon, wie.

Das Handle der zu manipulierenden Komponente würde ich gern per Mausklick abfragen(wegen der Benutzerfreundlichkeit). Geht das?

Könnt Ihr mir vielleicht ein paar Tipps geben? Ich bin für jede Hilfe dankbar.

Viele Grüße

BloodySmartie

[bitsetter]

Zitat von BloodySmartie:

Ich möchte Text in ein Eingabefeld in einem anderen Programm schreiben oder eine Checkbox an/abkreuzen. Ich könnte mir vorstellen, dass das über Messages und die Handles der entsprechenden Steuerelemente geht, aber ich hab keine Ahnung davon, wie.

Hallo,

für die Checkbox müsste es so gehen:

Delphi-Quellcode:

SendMessage(..., BM_SETCHECK, 1, 0);//true
SendMessage(..., BM_SETCHECK, 0, 0);//false

[sirius]

Zitat von BloodySmartie:

Hallo liebe Community!
Mir kam heute eine tolle Idee für ein größeres Projekt. Ich bin gerade dabei, ein paar grundlegende Informationen zu sammeln. An sich wird es nicht mal schwer zu implementieren sein. Allerdings gibts da etwas, mit dem ich einfach keine Erfahrung habe: Ich möchte Text in ein Eingabefeld in einem anderen Programm schreiben oder eine Checkbox an/abkreuzen. Ich könnte mir vorstellen, dass das über Messages und die Handles der entsprechenden Steuerelemente geht, aber ich hab keine Ahnung davon, wie.

Das hast du richtig erfasst
Die eine Message wäre BM_SetCheck
Und die andere sieht nach WM_setText aus.

Zitat:

Das Handle der zu manipulierenden Komponente würde ich gern per Mausklick abfragen(wegen der Benutzerfreundlichkeit). Geht das?

windowfrompoint(getcursorpos)

[BloodySmartie]

Das ging ja fix, danke danke danke

Kann ich denn "windowfrompoint" auch dafür verwenden, das Handle von einem Steuerelement, wie nem Button oder Textfeld zu bekommen?

[Larsi]

hi,

wenn ich folgendes eingebe:
windowfrompoint(getcursorpos) kommen da fehler muss man da eine unit einbinden???


MFG Lars W.

[bitsetter]

Zitat von Larsi:

hi,

wenn ich folgendes eingebe:
windowfrompoint(getcursorpos) kommen da fehler muss man da eine unit einbinden???


MFG Lars W.

Versuche mal:

Delphi-Quellcode:

var
  Wnd: HWND;
begin
  Wnd:= Windows.WindowFromPoint(mouse.CursorPos);

[Larsi]

und wie kann ich den namen auslesen

[sirius]

sorry:

Delphi-Quellcode:

var pos:TPoint;
...
getcursorpos(pos);
windowfrompoint(pos);

..wenn mans nicht täglich macht
(Unit windows)

[Larsi]

und was schreibt man statt der drei punkte bei dem sendmessge reim???

[sirius]

Zitat von Larsi:

und wie kann ich den namen auslesen

Delphi-Quellcode:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var pos:Tpoint;
    text:array[0..49] of char;
begin
  getcursorpos(pos);
  sendmessage(windowfrompoint(pos),wm_gettext,50,integer(@text));
  edit1.text:=text;
end;

Einfach die Maus vom Formular gedrückt zu einem anderen Fenster ziehen und dann loslassen.