Código Delphi
[-]
If (MonthOf(Now) = 12) and (DayOf(Now) = 24) Then begin
case MessageDlg('¿Deseas tener una Feliz Navidad?', mtInformation, [mbYes, mbOK, mbAll, mbYesToAll], 0) of
mrYes: MessageDlg('¡Feliz Navidad!', mtInformation, [mbOK], 0);
mrOk: MessageDlg('¡Feliz Navidad!', mtInformation, [mbOK], 0);
mrAll: MessageDlg('¡Feliz Navidad a todos!', mtInformation, [mbOK], 0);
mrYesToAll: MessageDlg('¡Sí!, ¡Feliz Navidad a todos!', mtInformation, [mbOK], 0);
mrNone: MessageDlg('¡Feliz Navidad también para ti!', mtInformation, [mbOK], 0);
end;
end;
shale... batman en blu ray ya estaba agotado y no me lo regalaron... voy a ver si lo consigo por internet...