Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];

Вниз

System Menu   Найти похожие ветки 

 
ZEE   (2002-06-12 15:12) [0]

Как программно заставить выпасть системное меню формы (как при клике на иконке в заголовке).
И еще может ли это меню появится если у формы вобще нет заголовка?
Заранее спасибо всем.


 
Song   (2002-06-12 17:06) [1]

WM_NCHITTEST


 
ZEE   (2002-06-14 02:34) [2]

Да,использование WM_NCHITTEST для перетаскивания окна вместо заголовка за любое место я знаю, а как все-таки заставить выпасть системное меню?


 
Song   (2002-06-14 08:40) [3]

Использование WM_NCHITTEST преднозначено для определения операции с неклиентской областью формы, т.е. Вам нужно определить что клик сделан на заголовке и выпасть TPopup

>>для перетаскивания окна вместо заголовка за любое место я знаю
Да, это можно сделать испольуюя это сообщение, но только для этого WM_NCCHITTEST не предназначен.


 
ZEE   (2002-06-16 01:35) [4]

Хорошо, так можно увидеть пример (кусок кода) по "выпадению" системного Popup-а ?...


 
~Rand~   (2002-06-16 08:47) [5]

Удалено модератором


 
Song   (2002-06-16 11:18) [6]

А какие сложности-то ?

private
Procedure WhetherUserClicksOnTheCaption(Var Msg:TMessage); message WM_NCRBUTTONDOWN;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

Procedure TForm1.WhetherUserClicksOnTheCaption(Var Msg:TMessage);
Begin
With Msg Do IF WParam=HTCAPTION then PopupMenu1.Popup(LoWord(LParam),HiWord(LParam));
End;


 
RAK   (2002-06-16 11:23) [7]

WM_NCHITTEST PONAL!!!


 
ZEE   (2002-06-19 14:59) [8]

2 Song: Мне PopupMenu1 не надо (так мы и сами умеем) - мне надо чтоб выпала реальная системная менюшка...

2 RAK: Да понял, понял, только вот примеров с WM_NCHITTEST не вижу...


 
Дмитрий Баранов   (2002-06-19 15:06) [9]

procedure TForm1.Button1Click(Sender: TObject);
var menu: HMENU;
begin
menu:=GetSystemMenu(Self.Handle, FALSE);
TrackPopUpMenu(menu, 0, 100, 100, 0, Self.Handle, nil);
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.05 c
7-1219
Aleksey_K
2002-04-04 18:35
2002.07.01
Com порт


14-1166
Joke
2002-05-29 17:18
2002.07.01
Срочно нужен т.н. граббер экрана под ДОС!


7-1225
Schummi
2002-01-13 10:13
2002.07.01
МР3 - в линию???


1-1021
Dark Programmer
2002-06-18 12:22
2002.07.01
Как убрать кнопочки что: крестик, развернуть и свернуть?


14-1177
artgamer
2002-05-30 22:12
2002.07.01
А где достать терминальную программу для USR Courier?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский