"Acerca de" en el Menu SystemControl del Formulario

[roman]

Empezado por dmassive

Gracias!!

Gracias a tí. Es muy grato ver que pudiste solucionar el problema y lo compartiste con todos los demás.

// Saludos

[[movorack]]

está muy bien... esta chido... y agregue al menú los items que quiero...

pero no me está manejando el evento cuando hago un click sobre los items... conste que lo hice al pie de la letra.

Código Delphi [-]
procedure TFrmLogon.WMSysCommand(var Message: TWMSysCommand);
begin
  inherited;
  if Message.CmdType = $F200 then
    MessageDlg('Acreca de...', mtInformation, [mbOK], 0);
end;

What's wrong????

[[movorack]]

bueno encontre la solución a mi problem...

agregue a mi formulario un TApplicationEvents y en el manejador OnMessage he agregado las porciones de código de las que nos hablaba nuestro amigo dmassive:

Código Delphi [-]
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  if (Msg.message = WM_SYSCOMMAND) then
    case Msg.wParam of
      $F200: MessageDlg('Acerca de...', mtInformation, [mbOK], 0);
    end;
end;

ahora si... a bailar en serio.