das habe ich bis jetzt
---------------------------------------------------------
Delphi-Quellcode:
procedure TWinForm.NotifyIcon1_MouseDown(sender: System.Object; e: System.Windows.Forms.MouseEventArgs);
begin
if(WindowState = FormWindowState.Minimized)then
begin
WindowState := FormWindowState.Normal;
end;
Activate();
notifyIcon1.Visible := false;
ShowInTaskbar := true;
end;
procedure TWinForm.TWinForm_SizeChanged(sender: System.Object; e: System.EventArgs);
begin
if(WindowState = FormWindowState.Minimized)then
begin
ShowInTaskbar := false;
notifyIcon1.Visible := true;
end;
end;
procedure TWinForm.TWinForm_Closing(sender: System.Object; e: System.ComponentModel.CancelEventArgs);
begin
notifyIcon1.Visible := false;
end;
-------------------------------------------------------------------------------------------
das habe ich jetzt so gemacht aber das geht nicht also es wird nicht im tray angezeigt
und das
--------
Delphi-Quellcode:
procedure TWinForm.NotifyIcon1_MouseDown(sender: System.Object; e: System.Windows.Forms.MouseEventArgs);
begin
if(WindowState = FormWindowState.Minimized)then
begin
WindowState := FormWindowState.Normal;
end;
Activate();
notifyIcon1.Visible := false;
ShowInTaskbar := true;
end;
--------
soll ja eigentlich da rein
------
ContextMenu
-------
aber wie greif ich darauf zu bei mir steht da none und ich kann da nix machen
und was soll das?
----------
Delphi-Quellcode:
void MenuItem2Click(object sender, System.EventArgs e)
{
this.Close();
}
----------