Habn problem beim verschieben von forms

HaTe · Hält's aus hier Beiträge: 5

also: mein prog besteht aus zur laufzeit erstellten forms ohne titlebars, die ich aber trotzdem gerne verschiebbar haben möchte. in den tips auf Swissdelphicenter hab ich folgendes gefunden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.WMNCHitTest(var msg: TWMNCHitTest); 
begin 
inherited; 
if msg.Result = htClient then 
msg.Result := htCaption; 
end;

das funktioniert auch bei form1, also hab ich mir gedacht mach ich einfach folgendes:

markieren

Delphi-Quelltext

1:	neuform.onmousedown:=WMNCHitTest();

wobei neuform die variable ist, mit der ich neue forms erstelle, habe allerdings leider das problem das ich nicht weis was genau in die klammern reinkommt

. hab schon die delphi-hilfe durchsucht (wie fast immer erfolglos) und im internet hab ich auch noch keine lösung gefunden. kann mir jemand helfen?

MaxOff · Beiträge: 16 Win9x, Suse Linux 8.2 D 6 Ent

Ich nehme du rufst irgendwo eine Message mit dem Datentyp TWMNCHitTest auf?
Wenn ja, dann ruf einfach in den OnMouseDown-Event die Message auf. Also ungefähr so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

Procedure neuform.OnMouseDown(Sender: TComponent...);
//Für die anderen Parameter wahr ich zu faul ;)
Begin
  Application.SendMessage(WMNCHitTest);{War das so, oder vieleicht Application.SendMsg(WMNCHitTest)?}
End;

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt