Submenu anzeigen

[mensch72]

mal so ins unreine gedacht:
- wenn du eh alles selbst zeichnest, warum nimmst du dann überhaupt noch ein "Menü"?
- wäre es nicht einfacher und WinVersion unabhängiger, wenn du ein simples Fenster ohne Rahmen/Titel platzierst zeichnest und dann sichtbar machst... "Submenü" eben ein zweites solches Fenster usw.

Speziell bei Menüs und neues WinVersionen können Nutzer viel mit den Einstellungen spielen... verzögert/animiert anzeigen ein oder aus... du bist da ja sehr "optisch Detail verliebt" und gibst dir richtig Mühe das innerhalb deiner Software alles wie aus einem Guß aussieht. Daher würde ich dieses Ziel beim Menü eben "alternativ" lösen

[EWeiss]

Zitat von mensch72:

mal so ins unreine gedacht:
- wenn du eh alles selbst zeichnest, warum nimmst du dann überhaupt noch ein "Menü"?
- wäre es nicht einfacher und WinVersion unabhängiger, wenn du ein simples Fenster ohne Rahmen/Titel platzierst zeichnest und dann sichtbar machst... "Submenü" eben ein zweites solches Fenster usw.

Speziell bei Menüs und neues WinVersionen können Nutzer viel mit den Einstellungen spielen... verzögert/animiert anzeigen ein oder aus... du bist da ja sehr "optisch Detail verliebt" und gibst dir richtig Mühe das innerhalb deiner Software alles wie aus einem Guß aussieht. Daher würde ich dieses Ziel beim Menü eben "alternativ" lösen

weil es nicht so einfach ist die Sub Menus die Fenster dafür zu steuern.
Das verhalten soll sich nicht vom Normalen Menu unterschieden.
Ich habe das ja im Programm OTTB so gemacht allerdings OHNE Submenu

gruss

[mensch72]

auch wenn ich es grad nicht probiert habe, aber ich würde wenn ich das MainMenü komplett gezeichnet hätte und alle Maus/Tastatur Events in meinem eigenen Fenster hätte,
es mir dann sogar leicher vorstellen selbst noch ein eigenes weiteres Untermenüfenster als "Child passend neben mir" zu erzeugen.

Würdest du bitte kurz schreiben warum es nicht so einfach ist, soetwas vergleichbar dem Verhalten eines normalen Submenü "mal schnell" selbst zu lösen... ich mag schwierige Fälle wenn die so gut wie möglich beschrieben sind

[EWeiss]

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

Na ja ich kann es mal mit den Sub Menus versuchen wieder so viel Arbeit. LOL
Wieder ne neue unit inklusive Subclassing das nervt.

ABER mit

Zitat:

"mal schnell" selbst zu lösen...

wird das nix

gruss

[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.

[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