Tray

[Shouldercannon]

Помогите пожалуйста упростить код, чтобы он был короче и без участия CheckBox.

[Johnson]

Незнаю, как в остальных версиях, а в дельфи 2007 есть компонент TTrayIcon, находится во вкладке Additional... с ним всё просто.
по OnClick вызываешь процедуру:

procedure TMainForm.TrayIcon1Click(Sender: TObject);
begin
MainForm.Visible:=not(MainForm.Visible);
if MainForm.Visible then
begin
SetForegroundWindow(MainForm.Handle);
TrayIcon1.Visible:=false;
end
else TrayIcon1.Visible:=true;
end;

у ТрэйИкон параметр Висибл - фальс... и всё... делаешь кнопку или ещё какнить... при щелчке по ней вызывается TrayIcon1Click

[Shouldercannon]

К сожалению у меня не 2007, а просто 7. Нет это не то. Мне надо сделать код короче, избавиться от CheckBox и чтобы он не потерял свою функциональность.

procedure TForm1.FormCreate(Sender: TObject);
begin
CheckBox1Click(Self);
CheckBox2Click(Self);
CheckBox3Click(Self);
CheckBox4Click(Self);
CheckBox5Click(Self);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin
TrayIcon1.CycleIcons:=False;
TrayIcon1.IconList:=nil;
ImageList1.GetIcon(0, TrayIcon1.Icon);
end;

procedure TForm1.ShowWindow1Click(Sender: TObject);
begin
TrayIcon1.ShowMainForm;
TrayIcon1.CycleIcons:=False;
TrayIcon1.IconList:=nil;
ImageList1.GetIcon(0, TrayIcon1.Icon);
end;

procedure TForm1.HideWindow1Click(Sender: TObject);
begin
Application.Minimize;
TrayIcon1.HideMainForm;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
TrayIcon1.ShowHint:=CheckBox1.Checked;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if Assigned(PopupMenu1) then
PopupMenu1.AutoPopup:=CheckBox2.Checked;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
TrayIcon1.LeftPopup:=CheckBox3.Checked;
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
TrayIcon1.Enabled:=CheckBox4.Checked;
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
TrayIcon1.MinimizeToTray:=CheckBox5.Checked;
end;

procedure TForm1.WMQueryEndSession(var Message: TMessage);
begin
SessionEnding:=True;
Message.Result:=1;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=((not CheckBox6.Checked) or SessionEnding);
if not CanClose then
begin
TrayIcon1.HideMainForm;
TrayIcon1.IconVisible:=True;
end;
end;

[Ring0Sn]

тут чекбоксами выставляються только свойства трайикона, замени все что связано с чеками на свое усмотрение... а если это для тебя трудно то возьми готовый компонент и не трахай мозг другим

[Shouldercannon]

Прошу прощения. Что-то я стал тупить это наверно из-за жары 32 градусной . Действительно там разбираться 5 секунд. Ещё раз прошу прощения.