mausklicks vollkommen ignorieren ??

[telekommander]

hallo erstmal ! bin neu hier, hab auch schon ueberall gesucht, google, delphiforum, etc. ,etc. und hab nichts gefunden
ich will naemlich ein programm schreiben das absolut garnicht auf einen mausklick reagiert.
mit form1.enabled:=false; gehts nicht, auch nicht in der create prozedur oder sonst wo, denn windows greift trozdem noch immer auf das fenster zu, zwar nicht richtig aber immerhin so das er aus meinem spiel rausgeht, die aufloesung wieder aendert um mir denn zu zeigen - beep - programm nicht erreichbar/aktiv. gibt es nicht irgendwie ne moeglichkeit etwas auf dne bildschirm zu bringen (in diesem fall bei einem computer spiel) welches man anklicken kann ohne das es reagiert, also absolut garnicht ? wär echt super wenn ihr da weiter wissen würdet. ansonsten hoff ich das ich eure regeln nicht gleich beim ersten post verletzt hab, hab echt alles schon durchsucht und nichts gefunden, aber vielleicht sitzt hier ja die loesung rum

mfgreetz

[SirThornberry]

ein Lokaler Hook wäre eine Möglichkeit:

Delphi-Quellcode:

  TForm1 = class(TForm)
  public
    HookID: Cardinal;
  [...]

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
begin
  case nCode < 0 of
  True:
    Result := CallNextHookEx(Form1.HookID, nCode, wParam, lParam)
  else
    case wParam of
      WM_RBUTTONDOWN,
      WM_LBUTTONDOWN,
      WM_LBUTTONUP,
      WM_RBUTTONUP:
        Result := HC_SKIP;
    else
      Result := CallNextHookEx(Form1.HookID, nCode, wParam, lParam);
    end;
  end;
end;
[...]
procedure TForm1.FormCreate(Sender: TObject);
begin
  HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());
end;
[...]
procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HookID <> 0 then
     UnHookWindowsHookEx(HookID);
end;

[shmia]

Zitat von telekommander:

ich will naemlich ein programm schreiben das absolut garnicht auf einen mausklick reagiert.

Setze BorderStyle auf bsNone und das Formular hat keinen Rahmen mehr.
Also kann man nicht Schliesen, Verschieben, Mini- oder Maximieren.

Zitat von telekommander:

ansonsten hoff ich das ich eure regeln nicht gleich beim ersten post verletzt hab, hab echt alles schon durchsucht und nichts gefunden, aber vielleicht sitzt hier ja die loesung rum

Texte ohne GROSS/klein-Schreibung sind sehr unleserlich!!
Du darfst deine Fragen mit Fett, Kursiv oder Unterstreichungen formatieren.

[TStringlist]

Hallo telekommander, wenn du in SirThornberry's Code auch noch zusätzlich einige NonClient-Messages abfängst, wie z.B. vielleicht:

Code:

...
    case wParam of
      ...
      WM_NCRButtonDown,  
      WM_NCLButtonDown,
      WM_NCLButtonUp,
      WM_NCRButtonUp,
      WM_NCMouseMove:
        Result := HC_SKIP;
    else
      ... 
...

..dann dürfte das wohl insgesamt beim gesuchten Effekt herauskommen - vorausgesetzt natürlich, ich habe dich richtig verstanden.

Allerdings wäre dein Prog1 danach aber auch derart abgeschottet, dass du es dann nur noch mehr über den TaskManager schließen könntest ...oder mittels eines anderen Progs2 per: PostMessage(Prog1_Handle,WM_Close,0,0);

[telekommander]

danke das mit windows style csNone hat damit ncihts zutun, das ist ja sowieso, aber danke funktioniert prima
Schuldigung, achja, ich schreib jetzt auch mal lieber Groß und klein

machts gut !