Delphi-Quellcode:
begin
ConMenue := TContextMenue.Create(MainForm);
ConMenue.Top := Trunc(Platform.GetMousePos.Y);
ConMenue.Left := Trunc(Platform.GetMousePos.X);
ConMenue.FBB := TBarButton(Sender);
ConMenue.ShowModal;
ConMenue.Free;
end;
Aber er bleibt in der ersten Zeile Stehen... auch wenn der Rest ausgeklammert ist.
Das Create ist nicht überschrieben. (Also noch das von TForm) Hab statt mainform auch Self / Nil versucht...