Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Fenster "unverschiebbar" machen (https://www.delphipraxis.net/25071-fenster-unverschiebbar-machen.html)

Christian Seehase 30. Jun 2004 21:22

Re: Fenster "unverschiebbar" machen
 
Moin phXql,

Zitat:

Zitat von phXql
OT: wie kann man denn nun ein fenster mit der tastatur verschieben?

Mit ALT-Space das Systemmenü öffnen, dann den Menüpunkt "Verschieben".
Jetzt ist der Cursor ein Kreuz mit Pfeilspitzen, und das Fenster lässt sich mit den Cursortasten bewegen.

Analog funktionier das auch mit dem Ändern der Grösse.

BTW: Das EnableMenuItem funktioniert nur mit SC_CLOSE :?

NicoDE 30. Jun 2004 21:50

Re: Fenster "unverschiebbar" machen
 
Zitat:

Zitat von Christian Seehase
Das EnableMenuItem funktioniert nur mit SC_CLOSE :?

Hm ?
Delphi-Quellcode:
procedure TForm1.WMInitMenu(var Message: TWMInitMenu);
begin
  EnableMenuItem(Message.Menu, SC_MOVE, MF_BYCOMMAND or MF_GRAYED);
  DrawMenuBar(Handle);
end;

Christian Seehase 30. Jun 2004 22:19

Re: Fenster "unverschiebbar" machen
 
Moin Nico,

danke, man muss es natürlich auch an der richtigen Stelle machen :wall: :wall: :wall:

Stellt sich mir nur noch die Frage, warum es mit dem SC_CLOSE auch an anderer Stelle funktioniert.

Motzi 30. Jun 2004 22:53

Re: Fenster "unverschiebbar" machen
 
Also ich würd bei WM_WINDOWPOSCHANGING ansetzen und dort die aktuelle Fensterposition als neue Fensterposition festlegen...

NicoDE 30. Jun 2004 23:05

Re: Fenster "unverschiebbar" machen
 
Zitat:

Zitat von Christian Seehase
Stellt sich mir nur noch die Frage, warum es mit dem SC_CLOSE auch an anderer Stelle funktioniert.

Mehr oder weniger aus Kompatibilitätsgründen (CS_NOCLOSE kann nachträglich geändert werden, ändert aber nicht unter allen Shell-Versionen das Systemmenü).


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:47 Uhr.
Seite 3 von 3     123   

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