Search options

var
  ReallyClose:boolean = false;

procedure Form1_btnClose_OnClick (Sender: TObject; var Cancel: boolean);
begin
  ReallyClose := True;
  Form1.Close;
end;

procedure Form1_OnCloseQuery (Sender: TObject; var CanClose: Boolean);
begin
  if not ReallyClose then
  begin 
    SendMessage(Form1.Handle, $0112, 61472, 0); //WM_SYSCOMMAND - $0112, SC_MINIMIZE - 61472
    CanClose := False;
  end;
end;

begin
  Form1.OnCloseQuery := @Form1_OnCloseQuery;
end.

Please download latest beta version
https://www.dropbox.com/s/6n60thhfaszoj … a.zip?dl=0

I added a new property for Form, TrayPopupMenu, example:

var
    PopupMenu: TPopupMenu;

procedure Form1_OnShow (Sender: string; Action: string);
var
    MyItem: TMenuItem;
begin
    PopupMenu := TPopupMenu.Create(Form1);

    MyItem := TMenuItem.Create (PopupMenu);
    MyItem.Caption := 'Item1';
    MyItem.OnClick := @MenuClick1;
    PopupMenu.Items.Add(MyItem);

    MyItem := TMenuItem.Create (PopupMenu);
    MyItem.Caption := 'Item2';
    MyItem.OnClick := @MenuClick2;
    PopupMenu.Items.Add(MyItem);

    Form1.TrayPopupMenu := PopupMenu;
    Form2.TrayPopupMenu := PopupMenu;
end;


procedure MenuClick1 (Sender: string);
begin
     ShowMessage('Hello from Item1');
end;

procedure MenuClick2 (Sender: string);
begin
     ShowMessage('Hello from Item2');
end;

Project with example

thezimguy wrote:

gonpublic2k wrote:

@theZimGuy -  Is this a Point Of Sale project you're working on?  From your screenshot I took a look and at a
glance it appears to be.  Please let me know because I'm interested on developing one using MVD.

Cheers!

Please find attached.
To use this project, pls dont forget to create a mySQL database first.
You can install xampp and access it phpMyAdmin to do that.
Import the zims.sql after you create the database.
Provide the database settings when prompted.
Example

Server(Host) : localhost
Port : 3306
User : root (default)
Password : (empty default)
Database : zims (the name of the database you created)

Sorry for the delay

Trying to run your project in MVD 5.0 but it throw an error, see the attachment please