Советы по Delphi




Вызов контекстного меню в координатах курсора мыши


Тимошенко Александр пишет:

Предлагаю свою процедуру в раздел "Компоненты" - "PopupMenu" - "Вызов контекстного меню в координатах курсора мыши"

    procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: integer);
var
FCursor   : TPoint; begin
if
Button=mbRight then begin GetCursorPos(FCursor); PopupMenu1.Popup(FCursor.X,FCursor.Y); end; end;

Процедура, возможно, не особо оригинальна, но все же отличается от двух, ранее представленных в Ваших советах и довольно проста. [001700]




Содержание  Назад  Вперед