Pavlus, о, получилось! (записи в реестре и раньше удалял). Просто проверил все файлы на строку со старым значением и изменил файлы. Короче, компиль что-то намутил, хз. Главное - разобрался кажись )
У кого-нибудь есть понятный пример работы с треем? Если конкретно, то нужно поместить иконку в трей (нет проблем), а по нажатию ПКМ вызвать PopupMenu. ЛКМ - Показать окошко. Всего-то Ну для примера как в АИМПе
miha, могу скинуть одну маленькую прогу с треем или вот часть кода, компонент tTrayIcon: Procedure TForm1.WinManager(Sender: TObject); begin ShowWindow(Handle,SW_HIDE); form1.Visible:=false; n2.Caption:="Развернуть"; end; procedure TForm1.TrayIcon1DblClick (Sender: TObject); begin if n2.Caption="Свернуть" then begin WinManager(Form1); end else begin n2.Caption:="Свернуть"; ShowWindow(Handle,SW_Shownormal); Form1.Visible:=True; Application.Restore; application.BringToFront; end; end;
Не успел исправить, время истекло, поэтому дабл-пост. miha, могу скинуть одну маленькую прогу с треем или вот часть кода, компонент tTrayIcon: //Сворачивание в трей Procedure TForm1.WinManager(Sender: TObject); begin ShowWindow(Handle,SW_HIDE); form1.Visible:=false; n2.Caption:="Развернуть"; end; //Востановление по даблклику procedure TForm1.TrayIcon1DblClick (Sender: TObject); begin if n2.Caption="Свернуть" then begin WinManager(Form1); end else begin n2.Caption:="Свернуть"; ShowWindow(Handle,SW_Shownormal); Form1.Visible:=True; Application.Restore; application.BringToFront; end; end; Ну а для того что бы меню по правому нажатию клавиши было - юзай компонент tPopupMenu, и укажи его в tTrayIcon (например вручную можно: "TrayIcon1.PopupMenu:=PopupMenu1;")
П.с. n2.Caption:="Свернуть/Развернуть"; Эт я для себя писал, это не обязательно, можешь без этого использовать. Это типа для того, что бы по дабл клику не токо сворачивалось но и разворачиалось, плюс отображалось в подменю ПКМ.
14 июн 2010 в 21:20