delphi - How to detect TMenuItem right click? -

-

platform:delphi 2010

  1. drop tmainmenu on form1
  2. drop tpopupmenu on form1
  3. add mainmenu1 , popupmenu items (mainmenu --> file -->item1 , popupmenu-->popup item1)
  4. item1.onrgihtclick show popupmenu
  5. f9
  6. file-->item1 right click, popupmenu , select item1 bla bla bla.... 
object form1: tform1   left = 0   top = 0   caption = 'form1'   clientheight = 222   clientwidth = 447   color = clbtnface   font.charset = default_charset   font.color = clwindowtext   font.height = -11   font.name = 'tahoma'   font.style = []   menu = mainmenu1   oldcreateorder = false   pixelsperinch = 96   textheight = 13   object mainmenu1: tmainmenu     left = 136     top = 64     object file1: tmenuitem       caption = 'file'       object recentfile1: tmenuitem         caption = 'item 1'       end     end   end   object popupmenu1: tpopupmenu     left = 24     top = 136     object popupitem1: tmenuitem       caption = 'popup item'       onclick = popupitem1click     end   end end

here's menu structure below sample

file1           edit1   fileitem11      edititem11   fileitem21      edititem21

and 2 popup menu items. code:  

type   tform1 = class(tform)     mainmenu1: tmainmenu;     file1: tmenuitem;     fileitem11: tmenuitem;     fileitem21: tmenuitem;     edit1: tmenuitem;     edititem11: tmenuitem;     edititem21: tmenuitem;     popupmenu1: tpopupmenu;     popupitem11: tmenuitem;     popupitem21: tmenuitem;     procedure popupitem11click(sender: tobject);     procedure popupitem21click(sender: tobject);   private     fselecteditem: tmenuitem;     ftracking: boolean;     procedure menurbuttonup(var msg: tmessage); message wm_menurbuttonup;   public     { public declarations }   end;  var   form1: tform1;  implementation  {$r *.dfm}  { tform1 }  procedure tform1.menurbuttonup(var msg: tmessage); var   cmd: uint; begin   if not ftracking     fselecteditem :=         mainmenu1.finditem(getmenuitemid(msg.lparam, msg.wparam), fkcommand);    if (not ftracking) , (fselecteditem <> nil) begin     ftracking := true;     longbool(cmd) := trackpopupmenuex(popupmenu1.handle,                             tpm_recurse or tpm_bottomalign or tpm_returncmd,                             mouse.cursorpos.x, mouse.cursorpos.y, handle, nil);     ftracking := false;     if cmd <> 0       popupmenu1.dispatchcommand(cmd);   end;   inherited; end;  procedure tform1.popupitem11click(sender: tobject); begin   caption := 'popup item 1 clicked on ' + fselecteditem.caption; end;  procedure tform1.popupitem21click(sender: tobject); begin   // whatever..   caption := 'popup item 2 clicked on ' + fselecteditem.caption; end;

Comments

Post a Comment

Popular posts from this blog

unicode - Are email addresses allowed to contain non-alphanumeric characters? -

-
i'm building website using `django. website have significant users non-english speaking countries. i want know if there technical restrictions on types of characters email address contain. are email addresses allowed contain english alphabets, numbers, "_", "@" , "."? are allowed contain non-english alphabets "é" or "ü"? are allowed contain chinese or japanese or other unicode characters? email address consists of 2 parts local before @ , domain goes after. rules these parts different: for local part can use ascii: latin letters - z - z digits 0 - 9 special characters !#$%&'*+-/=?^_`{|}~ dot ., not first or last, , not in sequence space , "(),:;<>@[] characters allowed restrictions (they allowed inside quoted string, backslash or double-quote must preceded backslash) plus since 2012 can use international characters above u+007f , encoded as utf-8 . domain part more res...
Read more

c++ - Convert big endian to little endian when reading from a binary file -

-
this question has answer here: how convert between big-endian , little-endian values in c++? 28 answers i've been looking around how convert big-endian little-endians. didn't find solve problem. seem there's many way can conversion. anyway following code works ok in big-endian system. how should write conversion function work on little-endian system well? this homework, since systems @ school running big-endian system. it's got curious , wanted make work on home computer also #include <iostream> #include <fstream> using namespace std; int main() { ifstream file; file.open("file.bin", ios::in | ios::binary); if(!file) cerr << "not able read" << endl; else { cout << "opened" << endl; int i_var; double d_var; while(!file.eof()) {...
Read more

C#: Application without a window or taskbar item (background app) that can still use Console.WriteLine() -

-
i'm trying create application adheres following: no taskbar no console or form window can utilize console.writeline() . (i.e. if executes app command prompt write console.) the problem if create windows form (or wpf) application can have there no taskbar, console or window show up, console.writeline() nothing. if create console app, writes console, can't figure out how hide (and if did hide it, write command prompt window?)... how do this? just create standard console application. callers responsibility hide window caused program (from how run c# console application console hidden ): system.diagnostics.processstartinfo start = new system.diagnostics.processstartinfo(); start.filename = dir + @"\myprocesstostart.exe"; start.windowstyle = system.diagnostics.processwindowstyle.hidden;
Read more