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