Submenu anzeigen

[EWeiss]

Zitat von himitsu:

Zitat von EWeiss:

Dann muss ich für jedes SubMenu ein neues Fenster erstellen das scheint mir doch sehr aufwendig oder?

Das machen Windows, Linux, MacOS, ... auch nicht anders.

JO
probieren geht über studieren.

gruss

[EWeiss]

Ich habe das jetzt mal umgesetzt.
Jetzt kommen die Probleme bzw.. mir fällt im Moment nicht ein wie ich das umsetzen kann.

Die Basis.. auf Interface aufgebaut.
Popup erstellen

Delphi-Quellcode:

procedure TMainApp.CreatePopUpMenu;
begin
  PopupMenu := CTRL_PopUpMenuCreate;
  PopupMenu.Width := CLIENT_WIDTH;
  PopupMenu.Height := CLIENT_HEIGHT;
  PopupMenu.SkinConfigFile := PWideChar(FolderResource + 'PopUpWindow\OTTB.ske');
  PopupMenu.UseVistaCrystal := false;
  PopupMenu.UseVistaBlur := false;

  hPopUpHandle := PopupMenu.CreatePopUpMenu(MainHandle);
  if hPopUpHandle <> 0 then
  begin
    AddChildControls(hPopUpHandle);
    PopupMenu.CreatePrivateFont(PWideChar(FolderResource + 'PopUpWindow\OTTB.ttf'));

    Prop.PopupMenu := hPopUpHandle;
    Prop.bPopupMenu := True;
  end;
end;

Jetzt habe ich ein Fenster auf dem ich die Button platziere.
Beispiel einfacher Button für About Informationen.

Delphi-Quellcode:

  btnAbout := CTRL_PushButtonCreate;
  btnAbout.ImagePath := SKAERO_FOLDER + 'MEN_Select.png';
  btnAbout.Text := 'About';
  btnAbout.Left := 29;
  btnAbout.Top := 9;
  btnAbout.Width := 190;
  btnAbout.Height := 20;
  btnAbout.DlgItemID := IDM_About;
  btnAbout.TextCol := SKAERO_BTNTEXTCOLOR;
  btnAbout.Label3D := 1;
  btnAbout.ImageStateMax := 0;
  btnAbout.TextAlligment := Left;
  btnAbout.TextLeft := 20;
  btnAbout.CreateWindow(hMain);
  SKAERO_SetAnchorMode(btnAbout.Handle, ANCHOR_NONE);
  SKAERO_SetZorder(btnAbout.Handle, HWND_TOP);
  SKAERO_SetToolTipText(btnAbout.Handle, 'Oops...' + CHR(13) + 'Are they in the wrong place?',
    True);

Jeder Button hat eine ID hier (IDM_About) über die ich diesen steuern kann.
WinProc..

Delphi-Quellcode:

    WM_COMMAND:
      begin
        case loword(wP) of
          IDM_About:
            begin
              ShellExecute(0, 'open',
                'http://www.delphipraxis.net/192767-ordnung-muss-sein-launchbar.html', '', '',
                SW_SHOW);
              DestroyWindow(WinHandle);
            end;

Das Problem ist nun wie soll ich diese ID verarbeiten?
Denn in meiner Anwendung selbst habe ich ja nun keine WinProc für das Popup Fenster mehr.
Und die DLL in der das Popup Fenster erstellt wird kennt die ID und die Funktion die ich mit einem Klick ausführen will nicht!

Also wie koordiniere ich das jetzt so das ich trotzdem in der Anwendung die Messagen verarbeiten kann wie gehabt!

OK!
Das hat sich erledigt.

Ich initailisere das PopUpMenu mit
hPopUpHandle := PopupMenu.CreatePopUpMenu(MainHandle); In der PopUpProc innerhalb der DLL schicke ich jetzt bei WM_COMMAND einfach die Message zurück an das Parent Fenster.

Delphi-Quellcode:

    WM_COMMAND:
      SendMessageW(FParentHandle, Msg, wP, lP);

jetzt noch die SubMenu Windows..

gruss