Очень много вопросов... (+)

[DDK]

И так, т.к. никто мне толком ничего не ответил на вопрос о создании меню у компонента systray.ocx, решил я пойти другим путём. Тобиш "ломом". Хочу сделать простую форму в виде меню и потом просто "проявлять" и "прятать" её в нужном месте экрана так, что бы она была похожа на обыкновенное трей-меню. Но вот тут возникает куча вопросов:
1) Как сделать так, что бы форма была поверх таск-бара ?!
2) Как узнать положение в твипах или лучше в пикселях, где точно расположился значок, созданный SysTray.ocx ?!

И вот ещё вопрос офф-топ, но мне очень нужен ответ:
1) Как узнать макс. разрешение экрана, но ! С УЧЁТОМ таких приложений как Миранды, Аськи проч. прилипающих прог ?! Т.е. если я прилеплю Миранду или аську к правому краю десктопа, то все остальные Виндовые окна типа эксплорера и проводника (да все) будут при развёртке упираться в миранду и всё... Я понятно объяснил ?! У меня тут есть вариант - быстро развернуть форму весь экран, снять показания высоты и ширины и потом привести её в нормальный маленький вид... но вот вопрос - а не будет ли этот фокус виден на медленных машинах ?!... На Пне 4-м то это есессно не будет заметно, а вот на пне втором допустим... ?!.

И ещё последний вопрос:
У меня у главной формы [BorderStyle = 4 - FixedToolWindow], соответственно из ClipControls у меня отображаются только "Закрыть"... Вопрос:
1) А как возвернуть туда клипконтрол "Свернуть" ?
2) Как добавить туда новую свою кнопочку (именно - "GotoTray" и "?") ?! Очень НАДО !!!

ЗЫ: Заранее благодарю ! И сорьте, что так много вопросов получилось, но имхо в одно теме будет лучше их задать...

[Amed]

По поводу последнего вопроса есть даже пример:

[Ship]

У меня у главной формы [BorderStyle = 4 - FixedToolWindow], соответственно из ClipControls у меня отображаются только "Закрыть"...

Если BorderStyle = 4 нужно для того чтобы нельзя было менять размер формы, то лучше используй BorderStyle = 1, тогда можно будет добавить кнопки: ? (WhatsThisButton = True) и свернуть
(MinButton = True).

Насчет кнопки свернуть в трей скорее всего API юзать надо.

[DDK]

лучше используй BorderStyle = 1

Так в том-то и фишка, что мне нужен именно этот (BorderStyle = 4) тип бордера... по дизайну подходит.

[Memfivosfey]

С такими требованиями,
я вижу только одно решение, выставить форму в ноль и прорисовать её самому...

Public Function DrawingProturberantWindow(ByVal PicBox As Object)
Dim X As Long, Y As Long, W As Long, H As Long
PicBox.BorderStyle = 0
W = PicBox.Width - 15
H = PicBox.Height - 15
PicBox.Cls
PicBox.Line (X, Y)-(W, Y), QBColor(7)
PicBox.Line (X + 15, Y + 15)-(W, Y + 15), QBColor(15)
PicBox.Line (X, Y)-(X, H), QBColor(7)
PicBox.Line (X + 15, Y + 15)-(X + 15, H), QBColor(15)
PicBox.Line (X, H)-(W, H), QBColor(0)
PicBox.Line (X + 15, H - 15)-(W - 15, H - 15), QBColor(8)
PicBox.Line (W, Y)-(W, H + 15), QBColor(0)
PicBox.Line (W - 15, Y + 15)-(W - 16, H), QBColor(8)
End Function

Дорисовать Title,buttons, MouseMove.... и т.д.

[alibek]

На 98SE и выше есть такая фича, как градиентный заголовок. В XP-шном стиле окна рисуются вообще иначе. Может не изобретать велосипед и использовать API для рисования окон?

По вопросу 2.1 - SystemParametersInfo.
По вопросу 1.2 - tyomitch давал пример
Все остальное есть в форуме, искать надо.

[fallen]

по поводу 1.1 - SetWindowPos

а чтобы показывать форму как всплывающее меню, лучше узнать местоположение курсора во время нажатия мышки по иконке трея и в зависимости от этих координат располагать окно (в принципе так и действует pop-up меню, его положение зависит не от раположения иконки трея, а от курсора)