Einzelnen Beitrag anzeigen

Benutzerbild von gmarts
gmarts

Registriert seit: 4. Apr 2004
Ort: Templin
290 Beiträge
 
Delphi 6 Enterprise
 
#2

Re: Mausklick + Ctrl und dann Text auslesen

  Alt 5. Jan 2005, 02:21
Zitat von yvesdaeschle:
So etwas möchte ich für eine Anwengung haben, welches ich schreibe. Also wenn z.B. die Rechte Maustaste + Ctrl auf ein Wort soll mein Programm das Wort bekommen auf dem diese Aktion ausgeführt wurde.
So würde ich es in einer eigenen DelphiAnwendung machen:
Wenns die linke Maustaste sein darf, dann setzt die den Cursor auf dein Wort und über die CaretPos-Eigenschaft von z.B. TMemo & TRichedit, findest du raus bei welchem Wort der Cursor sitzt.
Wenns die rechte Maustaste sein soll, dann folgendes:
Delphi-Quellcode:
procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if mouse.Button = mbRight then
    begin
        mouse_event(MOUSEEVENTF_LEFTDOWN, mouse.CursorPos.x, mouse.CursorPos.y, 0, 0);
        mouse_event(MOUSEEVENTF_LEFTUP, mouse.CursorPos.x, mouse.CursorPos.y, 0, 0);
    end;
end;
...und schon ist es wieder die linke, die dann das OnClick-Ereignis auslöst!





Zitat von yvesdaeschle:
PS: Hab rausgefunden dass Babylon es mit OCR macht... das möchte ich nicht verwenden. Das muss sicher auch anders gehen!
Wenn du es über deine Anwendung hinaus brauchst, wirst du es wahrscheinlich auch so machen müssen.
Hier ein ähnliches Problem: Textfeld eines externen Programms ansprechen?

MfG GM
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Click;
end;
  Mit Zitat antworten Zitat