Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

system menu 


alexey1   (2002-02-21 03:34) [0]

Доброй ночи.
Кто-нибудь знает, как добавить свою кнопочку в системное
меню рядом со стандартными тремя(свернуть,развернуть,закрыть).
Спасибо.



Demn   (2002-02-21 04:16) [1]

Look at this forum. Somewhere it"s been.



MARcoDEN   (2002-02-22 08:29) [2]

Вот примерчик, надеюсь поможет :)

type
TForm1 = class(TForm)
. . .
procedure HookSysCommand(var message:TWMSYSCOMMAND);message WM_SYSCOMMAND;
end;

implementation

const
My_MenuItem=$4000;

procedure TForm1.HookSysCommand(var message:TWMSYSCOMMAND);
begin
inherited;
if message.CmdType=My_MenuItem then ShowMessage("Пункт активизирован");
end;

procedure TForm1.FormCreate(Sender: TObject);
var SMenu : THandle;
begin
SMenu:=GetSystemMenu(Handle, False);
InsertMenu(SMenu, 1, MF_Byposition, My_MenuItem, "Новый пункт");
end;



Dimaond Cat   (2002-02-25 00:55) [3]

2 MARcoDEN мда , а вопрос-то не проэто.
2 alexey1 посмотри хелп на DrawFrameControl, если не получится пиши на мыло, не стесняйся, скину примерчик, или и впрям поищи тут.



Raptor   (2002-02-25 11:34) [4]

2 alexey1
Для того, что бы добавить кнопочку на TitleBar окна, надо ее там самому нарисовать плюс обрабатывать кучу сообщений: wm_NCPaint, wm_NCActivate, wm_NCHitTest, wm_NCLButtonUp и др.
А, если не хочешь мучиться, возьми готовый компонент TCaptionButton (например с Torry) и посмотри как там это там делается.
Если не найдешь - пиши, я тебе его пришлю.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.043 c
1-94495           Sukhov                2002-04-16 16:43  2002.04.29  
Получение почты, а точнее приаттаченных файлов с помощью FastNet


14-94569          PVOzerski             2002-03-25 10:42  2002.04.29  
А где можно на программиста выучиться в Питере?


1-94367           Bodia                 2002-04-15 12:18  2002.04.29  
Какой компонент самый лутший для роботы с FTP?


1-94397           SergLight             2002-04-17 18:35  2002.04.29  
Обработка OnDrawItem для ListBox а


3-94280           kserg@ukr.net         2002-04-08 14:25  2002.04.29  
-какой тип данных лучше подходит для хранения TEXT-данных