Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Schließen Menü Eintrag Problem (https://www.delphipraxis.net/68100-schliessen-menue-eintrag-problem.html)

gauggi 24. Apr 2006 18:21


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