Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Window-Resize von außen unterbinden, intern zulassen (https://www.delphipraxis.net/192648-window-resize-von-aussen-unterbinden-intern-zulassen.html)

SneakyBagels 8. Mai 2017 13:53


Window-Resize von außen unterbinden, intern zulassen
 
Ich habe heute von jemanden das Tool AutoHotkey Script empfohlen bekommen. Es ist wirklich sehr nützlich.
Ich habe mir direkt ein Script angelegt, welches das aktive Fenster so hoch darstellt wie mein Monitor hoch ist und 50% so breit wie mein Monitor breit ist. Zuletzt wird es in die obere linke Ecke geschoben. Das Programm hat aber den Haken, dass es bei meinem Delphi-Programm nicht richtig funktioniert.
Bei meinem Programm ist das Main-Form offen und ein zweites, kleines Fenster mit ShowModal. Wird nun der Hotkey angewandt, werden beide Fenster in der Größe angepasst.

Ist es möglich intern Größenveränderungen zu erlauben (Height:=123; Width:=123; ) aber von Außerhalb über externe Programme nicht? CanResize ist hier glaube ich keine Lösung.

bra 8. Mai 2017 13:59

AW: Window-Resize von außen unterbinden, intern zulassen
 
Zitat:

Zitat von SneakyBagels (Beitrag 1370568)
Ich habe mir direkt ein Script angelegt, welches das aktive Fenster so hoch darstellt wie mein Monitor hoch ist und 50% so breit wie mein Monitor breit ist. Zuletzt wird es in die obere linke Ecke geschoben.

Das ist doch genau dasselbe wie Windows-Taste + Pfeil Links bzw. Rechts macht, oder nicht? Wozu da so einen Aufwand?

Uwe Raabe 8. Mai 2017 13:59

AW: Window-Resize von außen unterbinden, intern zulassen
 
Kannst du nicht die Constraints auf die aktuellen Werte setzen? Das sollte externe Größenänderungen verhindern. Willst du dann intern eine andere Größe, änderst du einfach die Constraints.

SneakyBagels 8. Mai 2017 14:01

AW: Window-Resize von außen unterbinden, intern zulassen
 
Nicht ganz. Win+Links würde in diesem Fall nicht das modale Fenster ausrichten was auch richtig ist.
Das Script ist nur ein Beispiel-Script. Das Programm ist noch für viel mehr gut.
Das Fehlverhalten liegt hier ganz klar bei Autohotkey. Da mir dieses Verhalten aber aufgefallen ist dachte ich, kann man das irgendwie in meinem Programm unterbinden.

Zitat:

Kannst du nicht die Constraints auf die aktuellen Werte setzen?
Gerade getestet. Autohotkey setzt sich selbst dem entgegen.

Delphi-Quellcode:
 Form1.Constraints.MaxHeight := Height;
 Form1.Constraints.MaxWidth := Width;

Dalai 8. Mai 2017 14:55

AW: Window-Resize von außen unterbinden, intern zulassen
 
Wie sieht denn dein AutoHotkey Skript aus?

Grüße
Dalai

SneakyBagels 8. Mai 2017 15:04

AW: Window-Resize von außen unterbinden, intern zulassen
 
Mein Autohotkey sieht so aus

Code:
WinMove, A, , 0, 0

ResizeWin(Width = 0, Height = 0)
{
  WinGetPos, X, Y, W, H, A

  If %Width% = 0
    Width := W

  If %Height% = 0
    Height := H

  WinMove, A, , %X%, %Y%, %Width%, %Height%
}

ResizeWin(1400, 1000)
Dokumentation: https://autohotkey.com/docs/commands/WinMove.htm

bra 8. Mai 2017 15:15

AW: Window-Resize von außen unterbinden, intern zulassen
 
Man kann bei Autohotkey doch definieren, welche Fenster/Programme er anhand des Namens oder Fensterklasse überhaupt berücksichtigen soll. Kannst du dem Skript nicht sagen, dass es nur das Hauptfenster deines Programmes berücksichtigen soll und nicht das komplette Programm an sich?

SneakyBagels 8. Mai 2017 15:20

AW: Window-Resize von außen unterbinden, intern zulassen
 
Das weiß ich nicht. Aber ich möchte lieber eine Lösung meinerseits finden und in meinem Programm implementieren denn man kann nicht von allen Anwendern beider Softwareteile verlangen, dass die in Autohotkey jedes Fenster meines Programms einzutragen haben was ignoriert werden soll.

HolgerX 8. Mai 2017 15:34

AW: Window-Resize von außen unterbinden, intern zulassen
 
Hmm..

Ich vermute mal, das Constraints nicht funktionieren, da wahrscheinlich AutoHotkey direkt mit SetWindowPos arbeitet, da werden dann keine Events im Programm ausgeführt (ungetestet, nur Vermutung), welche eine Größenänderung abfangen können.

Gegen so etwas kannst Du dich mit Windows-Fenstern kaum wehren, da es hier auf API-Ebene abläuft..

Was mir noch nicht so ganz klar ist, soll die Größenänderung nur auf dem Mainform oder dem kleinen Modal-Fenster ausgeführt werden?

bra 8. Mai 2017 15:40

AW: Window-Resize von außen unterbinden, intern zulassen
 
Zitat:

Zitat von SneakyBagels (Beitrag 1370578)
Das weiß ich nicht. Aber ich möchte lieber eine Lösung meinerseits finden und in meinem Programm implementieren denn man kann nicht von allen Anwendern beider Softwareteile verlangen, dass die in Autohotkey jedes Fenster meines Programms einzutragen haben was ignoriert werden soll.

Ich meinte das eher andersherum, dass du nur dein Hauptfenster bei AHK angibst:

#IfWinActive ahk_class TfrmKlassenname_des_Fensters
...

SneakyBagels 8. Mai 2017 15:45

AW: Window-Resize von außen unterbinden, intern zulassen
 
Für mich selber kein Problem. Aber anderen kann ich das nicht zumuten. Kann man hier nichts über die Message WMSize machen?

himitsu 8. Mai 2017 15:47

AW: Window-Resize von außen unterbinden, intern zulassen
 
Zitat:

Zitat von HolgerX (Beitrag 1370582)
Ich vermute mal, das Constraints nicht funktionieren, da wahrscheinlich AutoHotkey direkt mit SetWindowPos arbeitet, da werden dann keine Events im Programm ausgeführt (ungetestet, nur Vermutung), welche eine Größenänderung abfangen können.

Gegen so etwas kannst Du dich mit Windows-Fenstern kaum wehren, da es hier auf API-Ebene abläuft..

Doch.

MSDN-Library durchsuchenWM_WINDOWPOSCHANGING
MSDN-Library durchsuchenWM_WINDOWPOSCHANGED

SneakyBagels 8. Mai 2017 15:51

AW: Window-Resize von außen unterbinden, intern zulassen
 
Verstehe ich das also richtig, dass WM_WINDOWPOSCHANGING dann gefeuert wird, wenn ein externes Programm versucht die Größe meines Programmfensters zu ändern?

himitsu 8. Mai 2017 17:37

AW: Window-Resize von außen unterbinden, intern zulassen
 
Ja, das Eine vorher, bzw. wenn es grade gemacht wird, und man kann das noch abbrechen/anpassen.
Und das Andere nachher, wenn es geändert wurde, damit man z.B. Subkomponenten neu ausrichten kann, inkl. Align und Anchor.

SneakyBagels 8. Mai 2017 17:44

AW: Window-Resize von außen unterbinden, intern zulassen
 
Ich habe gerade schon einmal ein bisschen rumprobiert. Welche Message muss man genau abfragen, um an gewünschtes Ergebnis zu kommen?


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:13 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz