AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Linken mausklick minimiert simulieren?
Thema durchsuchen
Ansicht
Themen-Optionen

Linken mausklick minimiert simulieren?

Ein Thema von k4ni · begonnen am 10. Jan 2008 · letzter Beitrag vom 27. Aug 2009
 
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#2

Re: Linken mausklick minimiert simulieren?

  Alt 10. Jan 2008, 01:58
wenn du das handle des entsprechenden Fensters hast, lässt sich das mitttels SendMessage/PostMessage und WM_LButtonDown/WM_LButtonUp machen. Da ich die Vermutung habe, du möchtest einen button anklicken, musst du dessen handle verwenden, wenn dieser eins hat, da du sonst "dahinter" klickst

informationen zu der message findest du im MSDN

mein Testprogramm (um zu testen ob die message im minimierten zustand verabeitet wird):

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var wnd:Hwnd;
begin
  wnd:=findwindow(nil,'Image-Scanner');
  if wnd<>0 then
  begin
    sendmessage(wnd,WM_LButtonDown,0,0);
    sendmessage(wnd,WM_LButtonUp,0,0);
  end else
    showmessage('not found');
end;
das gegenprogramm hatte einfach nur ne showmessage() im Mousedown. Diese ist jedoch erst beim restore sichtbar geworden

( auch ein schönes Beispiel um den Unterschied zwischen Sendmessage und Postmessage zu demonstrieren )

HTH Frank
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz