Systemmenü eines Progs ändern

[Delphi Star]

Wie kann man das Systemmenü (s. Anhang) eines Progs ändern. Ich möchte alle Standarteintäge löschen und meine eigenen hinzufügen. Ich weiß nur wie man die Einträge des Menüs ändern kann das sich öffnet, wenn man mit rechten Maustaste auf die Titelleiste des Fensters klickt.

[SirThornberry]

schau dir mal die funktionen
- GetMenu
- SetMenu
- InsertMenuItem
etc. an (die hilfe verweist unter den einzelnen einträgen auf weitere funktionen (bzw. das msdn))

[mr47]

Also mich interessiert das auch aber ich komm mit InserMEnuItem nicht zurecht:

Was ist PMenu??? und welche Parameter muss ich noch angeben?

Aus der Hilfe werd ich au net Schlau :(

[Delphi Star]

Ich werd aus der Hilfe auch nicht wirklich schlau :(
Könnte vielleicht mal jemand ein Beispiel machen.

[Luckie]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure WndProc(var msg: TMessage); override;
  end;

var
  Form1        : TForm1;

implementation

{$R *.dfm}

const
  MY_MENU_ID = 999;

procedure TForm1.Button1Click(Sender: TObject);
var
  hMenu        : THandle;
begin
  hMenu := GetSystemMenu(Handle, False);
  if hMenu <> 0 then
  begin
    if not DeleteMenu(hMenu, 6, MF_BYPOSITION) then
      ShowMessage(SysErrorMessage(GetLastError));
    DrawMenuBar(hMenu);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  hMenu        : THandle;
begin
  hMenu := GetSystemMenu(Handle, False);
  if hMenu <> 0 then
  begin
    if not InsertMenu(hMenu, 6, MF_BYPOSITION, MY_MENU_ID, 'Mein Menüitem') then
      ShowMessage(SysErrorMessage(GetLastError));
    DrawMenuBar(hMenu);
  end;
end;

procedure TForm1.WndProc(var msg: TMessage);
begin
  inherited;
  case msg.Msg of
    WM_SYSCOMMAND:
      begin
        if hiword(msg.WParam) = 0 then
        begin
          case loword(msg.WParam) of
            MY_MENU_ID: ShowMessage('Buuuh!');
          end;
        end;
      end;
  end;
end;

Schaltfläche eins entfernt den Menüpunkt "Schließen" und Schaltfläche zwei fügt einen Menüpunkt hinzu, den man sogar anklicken kann und es passiert was.

[mr47]

Thx. Werd mir des mal angucken...

[bate]

Sorry wenn ich den etwas älteren Thread ausgrabe, aber irgend wie will das bei mir unter XP nicht gehen. Ich bekomm mein Menu nicht. Jemand ne Idee?

[Edit]

ok hat sich erledigt. :) Sollte wohl drauf achten auch wirklich das Handle der Anwendung zu holen und nicht die des Fensters :)

[shmia]

Ich würd's mir einfach machen und eine Komponente verwenden.
http://www.torry.net/pages.php?id=147

[faux]

Noch eine ergänzende Frage:

Wie kann ich da einen Radio-Button draus machen?
Also so zum Anhaken (unter XP zum Anpunkten *g*). Ich wills nämlich für "Always on Top" haben....

[Luckie]

Guck dir meine nonVCL Tutorials an und dort das Kapitel zu den Menüs.