So, ich bin nun etwas weiter:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.WMNCHITTest(var m: TWMMouse);
var
P: TPoint;
r: TRect;
begin
r := Form1.BoundsRect; //Delphi Beispiel
inherited;
P:=Point(m.XPos, m.YPos);
if PtInRect(r, ScreenToClient(P)) then
m.Result := HTCAPTION ;
end; |
Damit schaffe ich es nun, das Formular zu bewegen, in dem ich einfach auf es drauf drücke und die Maus ziehe. Leider klappt das nicht überall auf dem Formular.
Aber mal davon abgesehen...
Ich schaffe es immer noch nicht, das ganza dann einer Komponente anzuhängen.
Klar die Prozedure "procedure TForm1.WMNCHITTest(var m: TWMMouse);" braucht an stelle des TForm1 einen anderen Type aber wie ...
Muss dazu sagen, dass ich mich noch nicht viel mit Systemnahe Programmierung ausenandergesetzt habe.
Vieleicht könnt ihr mir aber trotzdem auf die sprünge helfen
Wer nicht gerne denkt, sollte wenigstens von Zeit zu Zeit seine Vorurteile neu gruppieren.
