WM_SYSCOMMAND: Probleme mit SC_SIZE

[AScomp]

Hallo,

habe ein Formular mit BorderStyle := bsNone erstellt. Dieses möchte ich aber trotzdem resizeable machen. Hierfür habe ich leere Images an die Ränder geklebt, die einen Resize-Cursor haben. Im OnMouseDown-Event habe ich folg. Code:

if Button = mbleft then begin
ReleaseCapture;
FormInstant.Perform(WM_SYSCOMMAND, $F008, 0);
end;

Jetzt gibt es aber folg. Problem: Das Fenster lässt sich nur rechts sowie unten vergrößern. Versuche ich es links und oben, passiert nichts. Interessanterweise kann ich links und oben allerdings das Fenster vergrößern, indem ich die Mouse nach rechts oder unten bewege. Allerdings wird das Fenster dann wieder rechts bzw. unten vergrößert, nicht links bzw. oben.

Kann noch jemand folgen?

Kurz gesagt: derzeit sind wohl nur zwei Richtungen möglich (nach rechts und nach unten). Ggf. muss ich SC_SIZE ($F008) auch anders aufrufen, um die korrekte Vergrößerung links und oben zu erhalten. Wenn ja: wie?

Danke für alle Tipps!

[AScomp]

Problem gelöst!

Delphi-Quellcode:

     
if Button = mbleft then begin
   ReleaseCapture;
   FormInstant.Perform(WM_SYSCOMMAND, SC_SIZE or WMSZ_BOTTOMRIGHT, 0);
end;

WMSZ_BOTTOMRIGHT etc. durch die entsprechenden Richtungen ersetzen... Steht weder in der MSDN, noch hab ich sonst irgendwas dazu gefunden. Per Zufall nach inzwischen 45 Minuten googeln gefunden. :-/

[DeddyH]

Hi,

schön, dass Du Dir selbst helfen konntest
Tust Du uns trotzdem 2 Gefallen?
1. Setze bitte Delphi-Tags (Beitrag editieren, Quellcode markieren und auf den "Delphi-Code"-Button klicken)
2. Ersetze bitte die ZeileSC_SIZE + WMSZ_BOTTOMRIGHT durchSC_SIZE or WMSZ_BOTTOMRIGHT Bei Bitverknüpfungen mit + wird mir immer ganz übel

[AScomp]

Hehe sorry, hatte vorher noch mit SC_SIZE + 1 etc. rumgespielt und jetzt gar nicht bemerkt, dass das + noch nicht durch or ersetzt wurde. Danke für den Hinweis!

Tags sind jetzt auch dran.

[bitsetter]

Zitat von AScomp:

Hallo,

habe ein Formular mit BorderStyle := bsNone erstellt. Dieses möchte ich aber trotzdem resizeable machen. Hierfür habe ich leere Images an die Ränder geklebt, die einen Resize-Cursor haben. Im OnMouseDown-Event habe ich folg. Code:

Hallo,

das wäre wohl auch ohne angeklebte Images gegangen:
Form die „BorderStyle := bsNone“ ist, in der Größe ändern?

[AScomp]

Hallo,

nein, unter Vista gab's zumindest bei mir IMMER den Fensterrahmen. Darum die manuelle Implementation.