[beton]

Сам себе отвечу

Code:

procedure TfrmMain.sTitleBar1Items0MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
p: TPoint;
begin
p.X := sTitleBar1.Items[0].Rect.Left;
p.Y := sTitleBar1.Items[0].Rect.Bottom;

inc(p.X, sTitleBar1.Items[0].ExtForm.Left);
inc(p.Y, sTitleBar1.Items[0].ExtForm.Top);

dxBarPopupMenuHeader.Popup(p.X, p.Y);
end;

[Author]

Posts