hallo zusammen,
ich habe mal wieder ein problem...
Ich verwende bei einer form mit borderstyle = bsnone diese procedure, um die form verschieben zu können:
Delphi-Quellcode:
...
private
procedure WMNCHitTest(var msg: TWMNCHitTest); message WM_NCHITTEST;
...
procedure TForm7.WMNCHitTest(var msg: TWMNCHitTest);
begin
inherited;
if msg.Result = htClient then
msg.Result := htCaption;
end;
bisher hat alles wunderbar geklappt, doch jetzt will ich ein TJvTransparentButton (Ein button von der JVCL) auf der form haben.
nun, ich kann den button einfach nicht anklicken, weiss der teufel warum!
wenn ich mit dem cursor über den TJvTransparentButton gehe, dann sieht man wie bei einem normalen windows-button im XP-Style, dass dieser im Focus ist (bei Win Xp Buttons gibts ein oranger rahmen um den button herum).
wenn ich aber AUF den TJvTransparentButton klicke, passiert nichts, wie wenn enabled = false wäre. ist es aber nicht.
dann habe ich den fehler gesucht, und mal die procedure WMNCHitTest weggelassen, und dann hats auch funktioniert
ach ja, ich habe grad noch etwas wichtiges entdeckt: wenn ich auf den TJvTransparentButton klicke und auf der maustaste bleibe, kann ich die form verschieben, anstatt dass der button gedrückt wird.
weiss jemand was das problem ist?