![]() |
Schließen Menü Eintrag Problem
Hallo!
Ich habe ein Problem: :gruebel: Ich möchte dass bei meinem Programm im Schließen Menü außer den wichtigen Befehlen wie Schließen, Minimieren ect. ein eigener Text steht. (so wie bei Inno Setup) Nun habe ich mir den Source von Inno Setup angesehen, aber mit diesem Source funktioniert es leider nicht. Wenn das Programm startet, dann hängt sich das Programm auf. Was könnte ich tun? mfg gauggi Danke für jede Hilfe! :-D Hier noch der Source:
Delphi-Quellcode:
unit about;
interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private-Deklarationen } procedure WMSysCommand (var Message: TWMSysCommand); message WM_SYSCOMMAND; public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var SystemMenu: HMenu; begin SystemMenu := GetSystemMenu(Handle, False); AppendMenu (SystemMenu, MF_SEPARATOR, 0, nil); AppendMenu (SystemMenu, MF_STRING, 9999, PChar('Über Test')); end; procedure TForm1.WMSysCommand (var Message: TWMSysCommand); begin if (Message.CmdType = 9999) then MessageDlg('Testbox', mtCustom, [mbYes], 0) else inherited; end; end. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz