ظاهر کردن PopUpMenu [بایگانی]

Hamid_PaK

سه شنبه 14 تیر 1384, 23:58 عصر

دوستان یک Button داریم و میخواهیم که در هنگام کلیک کردن روی اون یک PopUpMenu درست از قسمت پایین این دکمه ظاهر(PopUp) بشه !!!

(خودم یه چیزی نوشتم اما تو XP با 9X بخاطر تغییر سایز Caption بالا پایین میشه و درست از انتهای دکمه طاهر نمی شه !!!)

چیکار کنم ؟؟؟؟؟

محمد میرمصطفی

چهارشنبه 15 تیر 1384, 00:39 صبح

استفاده از ToolButton در یه Toolbar به نظر من مشکلتو حل می کنه.

hr110

چهارشنبه 15 تیر 1384, 00:49 صبح

procedure TmStringGrid.MenuBtnClick(Sender:TObject);
var
P : TPoint;
begin
P:=Point(MnuBtn.Left,MnuBtn.Top);
P:=ClientToScreen(P);
MnuPpUp.Popup(P.X,P.Y+MnuBtn.Height);
end;

Hamid_PaK

چهارشنبه 15 تیر 1384, 10:05 صبح

کد خودمم همین طوری بود ولی اشکال کار استفاده کردن Trec به جای TPoint بود که ایجاد مشکل کرده بود .

با تشکر از آقای hr110 . . . .