Какую хорошую темку нашел. Чтоб не засорять мелкими вопросами сюда черкну. Необходимо написать обработчик события по онклику на кнопку. Должно вылазить меню строго слева от этой кнопки.
Код:
procedure TMainForm.PatientBtnClick(Sender: TObject);
var
tCur: TPoint;
begin
mId := mPatientId;
GetCursorPos(tCur);
{ PatientMenu.Popup(tCur.X - 100, tCur.Y - 50);}
PatientMenu.Popup(left+width-patientbtn.width-135, top+patientbtn.Top+40);
end;
Данный код работает на моем рабочем компе, на компе коллеги и даже на 15" домашнем монике. Но при переносе на ноутбук меню выскакивает не там где нужно.
Должно работать при любом разрешении. Координаты у меня слишком абсолютные?
Через tCur не предлагать.
