WM_NCLButtonUp

[pstruh]

Hm, habe jetzt erkannt, dass "inherited" sehr wohl einen entscheidenden Einfluß hat. Aber trotzdem bekomme ich bei Aufruf der o.g. Windows-Message nur eine Rreaktion, wenn vorher durch Aufruf der Message WM_NCLBottomDown das Message-Ergebnis auf 0 gesetzt wird - damit verhindere ich aber die ursprünglichen Funktionalitäten (Fenster verschieben). Also, langer Rede kurzer Sinn, Alles soll so bleiben wie es ist, ich möchte lediglich eine zusätzlich Funktionalität einbauen, wenn die linke Maustaste in/über der FormCaption losgelassen wird. geht das nicht, oder bin ich heute Abend zu blöde :oops:

[DGL-luke]

zeich ma n büschen code. überschreiben der nachrichtenbehandlung is im prinzip nicht soooo schwierig.

[Christian Seehase]

Moin pstruh,

das ist ja ein interessantes Phänomen.
Es geht übrigens auch, wenn das Formular maximiert ist (ohne das WM_NCLBUTTONDOWN Result auf 0 zu setzen).

Ich vermute mal, dass das ein Problem der VCL ist.
Bei einem non-VCL-Programm würde es wohl funktionieren.

[pstruh]

Hallo Lukas,
der Code ist nicht der Rede wert. Eigentlich soll in

Delphi-Quellcode:

procedure TForm4.WMNCLeftButtonUp(var Message:TMessage);
begin
 ShowMessage('left up'); // << nur zum Test, hier soll eine Proc aufgerufen werden, die NIX
                         // am weiteren Windows-Handling verändert, sondern nur im Programm
                         // interne Reorganisationsaufgaben bearbeitet
end;

das funktioniert aber nur, wenn ich mit

Delphi-Quellcode:

procedure TForm4.WMNCLeftButtonDown(var Message:TMessage);
begin
 Message.Msg:=0;
end;

die Windows-Funktionalitäten quasi ausschalte: Dann kann ich natürlich nicht mehr das Fenster verschieben, ist also indiskutabel. Noch mal: Ich benötige eigentlich nur das Event LeftMouseButtonUp in der FormCaption um eine programminterne Proc auszuführen. Windows-Funktionalitäten sollen hier NICHT verändert oder ergänzt werden.

[pstruh]

Hallo Chris,
ein VCL-Phänomen?! Könnte es daran liegen, dass ich DelphiSpeedUp installiert habe?! Hm, sollte ich mal deinstallieren und dann noch mal probieren...

[Christian Seehase]

Moin pstruh,

Zitat:

Zitat von pstruh

Könnte es daran liegen, dass ich DelphiSpeedUp installiert habe?

das denke ich mal nicht, da ich es nicht installiert habe, und den Effekt nachvollziehen kann.
Wie gesagt, bei maximiertem Fenster funktioniert es, wie gewünscht.

[pstruh]

Neee, ohne DelphiSpeedUp geht's auch nicht :cry: Vielleicht ist WM_NCHitTest 'ne alternative?

[pstruh]

Arggggggggg, nein ist natürlich keine Alternative, die Message ertönt ja schon, wenn der Cursor nur über die Caption bewegt wird. Schit!

[Christian Seehase]

Moin pstruh,

aber da könntest Du dann mit GetAsyncKeystate die Maustaste abfragen, und entsprechend reagieren.

[pstruh]

Hihihi, habe Alternative gefunden: WM_WindowPosChanged Ist auch gleich ein Leerbeispiel für "mein" inherited. Ohne "inherited" haben alle Forms eine identische (von wem auch immer definiert?) Breite. Die Message gibts zwar schon für jedes Form 1x bevor der Anwender das es zu Gesicht bekommt - aber das ist in meinem Fall nicht kritisch. Vielen Dank für die Antworten und Gute Nacht - Dobru noc!