Forum: Software-Projekte der Mitglieder
by toms,
28. Feb 2009
Hallo Sebastian, ich habe mal den Code im WMNCRButtonUp so angepasst, dass das Systemmenü angezeigt wird.
procedure TXStyleContainer.WMNCRButtonUp(var message: TWMNCRButtonUp);
const
A: array of Integer = (MF_BYCOMMAND or MF_GRAYED, MF_BYCOMMAND or MF_ENABLED);
var
hMenuHandle: HMENU;
hOwner: HWND;
Cmd: Cardinal;
begin
Forum: Software-Projekte der Mitglieder
by toms,
25. Feb 2009
Du könntest ja evtl. auch auf eine Seite mit Screenshots verlinken.
Somit könnte man die Screenshots auch auf einen Blick sehen wenn man dem Link folgt.
Ich werde es noch unter Delphi 5 testen.
Forum: Software-Projekte der Mitglieder
by toms,
25. Feb 2009
Hallo Sebastian
Habe es soeben mit Delphi 7 unter WinXP gestestet.
Gab beim Kompilieren keine Feher, auch Darstellungsfehler konnten nicht erkannt werden.
Schaut gut aus :thumb:
Edit: Der Quellcode könnte noch etwas optimiert werden:
z.B
sizeof -> SizeOf