What to implement first? (Page 6 of 8)

Please Dmitry, check "Sendmail" funcion, some folks like me are reporting connection closed gracefully errors with gmail, and even read time out, acordingly to some folks that use TIDSmtp this is due to a bug in the TLS settings, instead of auto you should use SSL (or  TLS if you want to use port 587) this should solve the problem.

Can you allow us to change tidsmtp settings in anyway?
many thanks

Radio button too will be great.

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

1.
Just close the main form

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form1.Close;
end;

2. Set property MinimizeToTray = True for Form1.
Example

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


begin
    Form1.OnCloseQuery := @Form1_OnCloseQuery;
end.

But you want to decide, how to close your application.

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.