Form mit BorderStyle: bsNone zur Laufzeit verschieben???

[mlspider]

Ich möchte ein Formular mit der BorderStyle-Eigenschaft bsNone zur Laufzeit verschieben können. Wie kann ich das realisieren?

[nailor]

NCHITTEST

[mlspider]

Sorry, aber unter dem Link kann nichts gefunden werden

[nailor]

http://www.delphipraxis.net/internal...t=twmnchittest

^^der ist besser.

[mlspider]

OK, danke hat geklappt!!!

[Alex_ITA01]

moin,
also ich hatte letztens Probleme mit "NCHITTEST"...
und zwar hat die Message sogar bestimmte MouseEvents meiner eigenen Komponenten abgefangen und es trat kein MousDown bzw MouseMove meiner Kompo auf...

Wenn du das umgehen willst, nutze im MouseDownEvent:

Delphi-Quellcode:

  if ssLeft in Shift then
  begin
    ReleaseCapture;
    Self.Perform(WM_NCLBUTTONDOWN, HTCAPTION, varEmpty);
  end;

MFG Alex

[mlspider]

Danke für den Tip!!!

[int]

Oder einfach:

Delphi-Quellcode:

  
ReleaseCapture;
SendMessage(Handle,161,2,1);

[Luckie]

Für was steht bitte sehr die 161? Nicht umsonst hat Mircosoft solche Konstanten benannt. Sollte die was den Wert der Konstanten ändern oder sollte er unter einem anderen Windows einen anderen Wert haben, stehst du so dumm da.